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pris kassette 169,- 
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Anmeldelser og tests Tips, tricks og vejledning 



Easy script 8 

Commodores populaare tekstbe- 
handlingssystem erkommet I en 
dansk version. 



Et sikkert legn 18 

Den nye 128 er ved at vaere pa 
trapperne. men der er allerede 
kommet en bog om den. 



Tract af BASIC? 56 

BASIC er det mest kritiserede og 
mest anvendte computersprog. 
Der findes imJdlertid et vaeld af 
alternatives 




Der var nok engang 58 

Adventurespil bllver mere og me- 
re avancerede, og RUN har klkket 
pi nogle af de nyeste. 



JUKI 6100 60 

En robust typehjulsprinter t en 
fornuftlg prlsklasse til PC'eren. 



EUREKA! 63 

W fortseetter med at give tips til 
iDsningen af dette spaendende 
adventurespil. 



Input/Outpul 12 

Tor Engebakken besvarer sporgs- 
mai i RUNs populeere laaserbrev- 
kasse. Der er uden tvlvi ogsS no- 
get, du kan bruge. 



Dansk karaktersaet 16 

Laas her, hvordan du let og smer- 
tefrit kan lave dine egne karakte- 
rer. 



Comal skolen 52 

Com al-BO er p& mange omra'der 
ved at fortreenge BASIC. RUN 
starter derfor en Comal-skole. 
Vasr med fra starten. 



Programmer 

Programsektion 19 

Lees om de mange spaendende 
Iseserprogrammer, du kan taste 
ind. 



Tipsprogram 66 

Tipsprogrammet kan ferst afsfut- 
tes i nseste nurnmer, men i dette 
nummer lister vi en version til 
PLUS/4. 



Andet 




De bl& pirater 6 

RUN har veeret en tur pa det bis 
marked for at f/nde ud af, hvem 
der saelger piratkopier og hvorfor. 



Indtastningsvejledning 64 

Laas den for du begynder at taste 
dine programmer ind. 



Programlistninger 




Katalog-manipulation 20 

Zombies 21 

Annuitets&n 23 

Super print 30 

Karaktertegner 30 

Kryds og bolle 33 

Trace 38 

Quickfind 38 

Database 40 

Racerkersel 40 

Solitaire 42 

Dansk karaktersaet 42 

Mini tegneprogram 43 

Tipsprogram 43 
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Mangier du nogettil din Commodore 64? 

VI HAR DET 



ADMINISTRATIVE SYSTEMER 



COMFINANS 



version 
2.0 




FinansboghoJderiet til Commodore 64. dcrer hle- 
vel en bestseller i Iffbcl af el Sr. Over 250 tyttcmcr 
ktfrer pfl nuvrcrende tidspunkl. 
COMFINANS cr blcvct fornetlret igen. ved ut 
man kan (a udskrifl ul en konlo pa skarm, samr cn 
saldobalance til enhver lid. Hnsttgheden er ogsS 
blcvct foregei. 

Kapacitcl: I2l)0posieringer pr. p>eriode.3oX)konti. 

Og priscn cr dct bcdsie 
veddeihelc For kr. £095.- NUhr. 



1.595 



FAKSYS 



version 
2.0 




Fukturasystcmet til Commodore 64 der ikke har 
nogen konkurrcni. 

Fakmrering, kontoudtog. renteberegning. lager 
oi megct mere. Pniurammci kan kwrc sclvsticniligi 
cflcr tnlcgreres med COMFINANS. 
KapiK'iict; 250 kundcr, Z?o varcr. 

NUkr. 1.795 

Beggc systcmcr samlcl kun kr. 2.995,- 



Forpnskr. 2.595.- 



SP/ENDENDE UDVIDELSER 




Parallel Printer 
Interface med iex tuner 

Med. dette interface kan man tilslutte 
ntnsicn enhver parallel printer Itl sin 
Commodore 64. Den tilslultes den 
scrielle uilgang og benyttcr 
ikke nogei software, -f f\A 

Prls kr. Ill U*l 




80 tegns tekst- 
behandlingskort 

Her far Du et 80 tegns kort med DANSK-tekst- 
behandling. Endchg kan man se HO lean r»a 
ska?rmen. niir man skriver sine breve, fcndvi- 
dere har den et digitak ur. fastfrysning &f 

Pris kr. la/ *tO 



COM-IN 64 

Et helt nvt nrodukt fra MCH. 
COM-lN 64 cr et kommuntka- 

tions interface med facilitet som 
folgende: 

CW. RTTY. TEXT. MODEM. 
MAILBOX. AFSKOUT. 
Kommunikaitonsinterfacet til 
begynderen og den 
[rfdfesstoneite, aqa 

Pris kr OsUOtJ 



Eprom braender 

Her cr Din Eprnm hrxndcr til 
CommoUnre 64. 
Software er na- 
lurligvis med i 
prisen. Bncndc- 
rcn kan br.tndc 
eprom typer fra 2508 til 27I2K. 
Endvidere medfolger der Eprom- 
kort til tilslutntng af du Eproms 
man har hnendt. 4 Qjio 

Prls kr. 1.049 




Eprom sletter 

Uproin slelteren kan slelte op til 
fire E proms 
ad gangen ou 
arhejderfuld- 
SUtndig 
uafhxngig af 
eomputeren. 



Pris kr. 



707 




Motherboard 

Titlader tiKlutningaf flere modu- 
Icr af en gang. K.eks. 80 tegns 
kort ng Simons Basic. 
Molherhoardene er nuturligvis 
med omskilter. 

2 porte 241 

5 porte 741 j" 



DE BEDSTE B0GER 



fra 1 st Publishing (Data Becker) 



Tricks & Tips 

Bogen giver idecr til . bvordan man 
lover oftcktivc programmer, ved brag 
aluialligc programckscmplcr. Den 
danncrbaegnind fur laaimftj Rf Mfttrc 

i Priskr. 248,- 
Tneks and Tip* disk med 
allc ■■■:!!,.! kr. 85,- 



Adv. Machine ^ 
Language 

Dennc hog cr cn fortsaMtcIsc af 
Machine Language bogen, oggcir 
mere i dyWen med maskiopiogjam- 
mering Bogen cr uundvirtigforden. 
sotn Dnsker at btive bedre i at pnv 
gramme re i mBSkinlt6de, Prlskr. 248,- 



Anatomy of 64 

Bogen gar t"uldsta?ndig i dvbden med 
Commodore M og dens virkemadr 
Den har I.eks. cn delaljcrcl ROM lisi- 
mngmed forklanng. Desuden mange 
ekscmplcrpn progrummci 
*u man kanprnvc del hide 
i piiiksxl Pris kr. 248,- 
Bitgcn enhver Commndorc 
ejer burdc have. 



Idea Book 

Roecrtcrcn forstNCticIsc 
tilTrick.s& Tips. Den hiicJpcrcri igang 
med mure pmgrnmnieringsopgaver 
og analysercr forskelllge Morre 
programmer. Hctgcn ilct Hkullc %\h pA 
Dinhyldc. Pris kr. 248,- 



Anatomy of the 1541 

Bogcn giver cn ruldsia-ndig bcsknvel- 
x af. bvordun Du Kedvl uuny tier til 
din VC I54I . Bog>en mdcholdcr des- 
uden en toiul ROM-listning iif 
DOS'en. Bogen man ikke 
k an tin dvrcrc Pris Iff. 248,- 



Graphics Book tA"*{ 

Har «Iu pmblcmcrmed at * 
lave giufik pa Din Commodnic 
Ikke mere! Bogen har cksempltr pi. 
hvordnn man kan bruge hojoplws- 
iiingtsmfikken nA CommoUoieM. 
Pris kr. 248,- 



Jcgv*ribkerat bestille □ folgende produkter, ydcrligcre mulcrialcn og fa del ^cniJt bl; 



Navn ; 
Adj.; , 
By: _ 

Tlf.:_ 



Machine Language 

MnskinsprogHproKrammcrlng er 
yderst flekMinrlt og mcgel huriigctc 
end Basic. Bogen er cn begyiiderbog 
og fortitllet orn de grundl irggende he- 
urchor indentor ma»kin- 
kiKlen 0nsker Du at lacre 
maskinkodc - her er Kicen 
du hardroml <»m. 
Prls kr. 246V 




Peeks & Pokes 

Bogen ei el upslags- 
varrk lit at bruge allc dc nytuge adre*- 
ier, der flndcs na Commodore M. 
Denne hogomliundlcrdet. nuingc 
Cnnnuiidurc M ejetc har savncl 
Prlskr. 225.- 
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Mallepladsen 3, 6100 Haderslev 
Tlf. 04-53 1 7 71 
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Udglver Computerworld Danmark 
A/S. Ansvarshevende redaklfln Jar- 
gen Jorgensen, Fagredaktlon: Hen- 
nlng Randmose, Bjarne V. Jensen. 
Robert Ch. Noya, Tor Engebakken, 
Flemming Lerbaek, Robin Sagar, 
Sleen Schmeltzer. Olrektlon: Pre- 
ben Engell (adm. direktor). Annorv 
cache!: Peter Lybro. Bladsekretaer 
Grilh Axel. Abonnement: Dorihe 
Chrlslensen. Telelon: (01) 95 56 95. 
Telex: 31 566 CWDAN. Distribution: 
Dansk Centralagentur. Sats/tryk; 
J.H, Schult2 A/S. Kebenhavn. Op- 
lag: 25.000. 
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ComputflrwoOd turn. 


Japan 


Computtrwrodd J loan. 
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CompuMuodo 
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Computerworld Norge. 
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Singapore: Tha Asian Comput»iv«o*ia 

Spankw. Cotriputarworw E ipana. 
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MlMoOalom. 
PC World 

TtftMeAd Cofr»pu!erWocne. 

MicroCom pulerWeH, 
PC Welt 
Software Maria 
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Det er i virkeligheden det, del drejer 
sig om. r»£r man forst har en compu- 
ter. 

Man kan f § dem mange steder fra 
- lave dem selv. taste dem ind fra 
blade, bytte med andre, kobe pfrat- 
kopier og endelig kobe legalt. 

Alle disse muligheder har deres 
ulemper og fordele. 

Du laerer mest ved at lave dine 
egne programmer. Det er en udfor- 
dring til din kunne, og det er en stor 
tilfredsstillelse, nar det lykkes. 

Taster du ind fra blade, far du den 
samme tilfredsstillelse, nar pro- 
grarnmet korer - og du Iserer noget 
ved det. 

Det er nok her, man skal finde 
grunden til programlistningernes 



popularitet. For vel kan program- 
merne ofle kobes bedre. men der er 
ikke noget. der star ma) med noget. 
man mere eller mindre selv har la- 
vet. 

Derfor vil programmer i RUN altid 
have en hoj prioritet, og ind imellem 
laver vi en udgave, som vi kalder 
»programspec.al«. Det betyder blot, 
at vi i det nummer prioriterer pro- 
grammernev ekstra hojt. 

Til slut en advarsel om program- 
mer erhvervet pa illegal vis. Faerdige 
programmer erfor dyre, men tasnk 
pa, at du odelaegger udviklingen af 
nye spasndende programmer - og 
softwarefabrikanterne indser vel 
ogsa prisproblemet en dag. 



PROFESSIONEL TEKSTBEHANDLING 



CBM 64 WRITER PROFESSIONAL 
version 4.0 
af AXEL BANG 

TIL COMMODORE 64, SX 64 og C 128 

Programme! indeholder bl.a.: 

- 28.500 icgn 

* Dansk karakterwet 

- linieoriencffrei 

• Automaihii linieskifi 

- Avanceret redigering 

- Fuld tabulator 

- Alfasortering 

- FoWbaglaeni scroll 

- Auiotnaiilk sog/erniat ord 

- Kalkulaior 

- FormotjuMering 

- Sammenknbling af fletc dokumenccr 

- Fuld tikkerhed naod tab af tekic 

- Forberedt ill fotoiali 

- Udskrivning pd [ypehiulwkrlver 

- Ogmcgct mere...' 

Med programmel folger en udferlig lei forstaelig dansk bnigcrvejledning. 
Programmcl cr udviklci af journalist Axel Bang. 
Dansk brugerservice (hotline). 

Pris, EPROM version kr. 675,00 incl. moms 

Pris, DISKETTE version kr. 575*00 incl. moms 

Forsendelscsomkosininger kr. 20 r 04). 

ENEFORHANDLTNG 

Danmark, Sverige. Norgc og Finland 



software 1 DANSK DATA SERVICE ApS 



Fasanvsnget 307 

Postboks 29 DK-2980 Kokkcdal Tclcfon + 45 2 24 32 98 
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OEBAT 
DEBAT 




Af Jorgen Jorgensen 
»De bla pirater er unge menne- 
sker. der ser det som en udfor- 
drlng at knaekke programmer. Nar 
programmerne er kneekket mister 
de enhver interesse for dem, og 
det er grunden til, at de seelger 
dem sa billigt.« 

Ovenstaende pastand har jeg hort 
guderne ma vide hvor mange 
gange, og )eg har aldrlg troet en 
dojt pa den. Jeg har altid fait mig 
overbevist om, at det er penge, der 
er drivkraften bag piratmarkedel. og 
bevaebnet med »Den Bla Avis» satte 
jeg mig for at undersoge sagen. 

Det blev til en del traven pa sten- 
broen i Kobenhavn, og mine samta- 
ler med forskellige pirater lod rnig 
ane lidt at strukturen pa piratrnarke- 
det og bekreeftede kun min mis- 
tanke. Mine »'Ofre« er og bliver na- 
turligvis anonyme, men her er de 
konklusioner, jeg har kunnet drage. 

Den typiske pi rat 

De fleste pirater, jeg modte, var - 
ikke helt uventet - unge mennesker 
i den skolepligtige alder, men 
rnaand i en mere moden alder findes 
ogsa. De har typisk -vseret i gang- 
i 6 til 12 maneder, og flere af dem 
havde en fortjeneste pa. adskillige 
tusirvde kroner om maneden (skat- 
tefrit). 

Blandt kundekredsen findes alle 
aldersgrupper - de unge mest sptl 
og de aaldre mere seriose program- 
mer. Sidstnaevnte saelges heist, da 
fortjenesten her er den storste. 

Alle vidste naturligvis, at de fore- 
tog sig noget ulovligt. Der var imid- 
lertid ingen, der folte sig som for- 
brydere i den anledning. Kommen- 
tarerne var naasten samstem- 
mende: »Softwarefabrikanterne er 
selv ude om det. Hvis de satte pri- 
serne ned til et fomuftigt leje, ville 
det her automatisk hore op.- 

Kun enkelte havde selv oplevet at 
blive »truet« til at holde op. men Ha- 



sten alle havde hort om nogen. der 
havde vasret ude for det. Bange? 
»Tjah, de plejer jo at give en adver- 
se!, inden der sker nogeK Man vir- 
kede generelt lidt forsigtige, maske 
skraamte, og man var parat til med 
ojeblikkelig varsel at pakke sit ud- 
styr vaek, hvis man folte jorden 
braende under sig. De fleste fortalte 
da ogsa, at de ville holde op. hvis de 
fik en advarsel. 

Udbuddet af programmer var en- 
ormt. Et *katalog" pa. tusind titler 
var ikke ualmindeligt. og priserne 
var unaegtelig mere humane end jeg 
var vant til, og ofte kunne man 
endda ->snakke om det«. 

En mere uhyggelig struktur kom 
frem, nar vi begyndte at tale om, 
hvor programmerne kom fra. Ingen 
af dem jeg talte med «kncekkede«< 
programmerne selv. Nej, man fik 
dem tilbudt!!! Ofte flere maneder 
for programmerne kom her til lan- 
det. Manglede man et program, var 
der »et sted«, hvor man kunne ringe 
og bestille det. Dette var straks et 
omrade. hvor man var lidt mindre 
meddelsom, men jeg er ikke i tvivl 
om. at piratmarkedet er sserdeles 
kommercielt og opbygget som en 
pyramide, hvor alle de »bla pirater- 
udgor pyramidens nederste del - 
altsa selve distributionsleddet. 

Pa trinet laangere oppe finder vi 
sa grossisterne. der forsyner pira- 
terne. men (eg har en mistanke om, 
at det endda ikke er »grossisterne«. 
der knsekker programmerne. 

Jeg tror. at piratmarkedet er in- 
ternational! og styret af relativt fa, 
men staarkt konkurrerende heender, 
hvilket denne »-piratudialelse« tyder 
pa: 



»Hvis jeg laeser om et nyt pro- 
gram i et amerikansk blad, sS ringer 
jeg bare og bestiller det, hvis ikke 
jeg allerede har faet det tilbudt!" - 
og sa kan kunderne kobe det for en 
brokdel af den pris. de ellers skulle 
give seks maneder senere, nar pro- 
grammet pa legal vis dukker op her- 
hjernme. 

Leeserbrev 

»Jeg har selv handlet lidt pi det bla 
marked. Det skyldes de hoje priser 
pa software. Da jeg selv satte en 
annonce i, blev jeg da ogsi rirrget 
op af en forening mod piratkopie- 
ring. 

Jeg synes ogsi selv, at det er 
forkert, men hvis priserne biev sat 
fidt ned. tror jeg. det vilie stilne lidt 
af - ogsi pi grund af foren/ngerne 
/mod piratkopiering. Man bliver jo 
iidt bange. nir de ringer op og be- 
gynder at tale om retssag. 

Men ikke nok med at private ko- 
ber piratkopier. Jeg har faktisk hort 
rygter om, at an forretning ogsi 
bruger piratkopier, og det vif jeg 
kalde den helt store katastrofe. 

I ovrigt er jeg helt enig i, at det er 
for dirligt, at man ikke kan se or- 
dent/igt pi de produkter, man kan 
kobe i forretningerne. 

En god ide til at fa" stoppet pirat- 
kopferingen ville vaare, hvis den bli 
avis slet ikke optog den slags an- 
noncer!!! 

Jeg ersetvholdt op. og hA ber, at 
dette kan vaare med tU at stoppe 
piratkopieringen, 

Venlig hilsen...* m 
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EJ EN STAN DA RD- DISKETTE MEN 
PR IS SOM EN SAD A N. 
LEVER ES I PLASTBOKSE SOM STANDARD. 
EGENPRODUKTION ERA A-Z. 
LIVSVARIG NEDSLID'S GARANTI. 

Eksempler hvor Xidex gar langt over ansi krav: 

• 65% clip-level (h0jeste i branchen). 

• Centerh ul's tolerance f orbed ret med 50%. 

• A/tid perfekt sporing. 

• H0jglanspoleret overflade. 

• Nul slid pa hoved og diskette. 



ENEIMPORT0R: 



Langelinie 15, Snekkerup, 4740Borup. 
Tlf. (03) 62 88 00. 



Easy Script 
pa dansk 



Elektronisk tekstbehandling til 
CBM-64/C128 



At Kenning Randmose 
Der er sket meget siden englaen- 
deren H.MiM i 1714 udtog patent pa 
den forste skrivemaskine, eller si- 
den vor landsmand Mailing Han- 
sen i 1841, som den forste i verden, 
begyndte en masseproduktlon. t 
1925 kom den elektrlske skrivema- 
skine, og endelig i 197S blev 
grundlaget for ETB (elektronisk 
tekst-behandling) skabt. 

Da kom Wordstar fra MicroPro, 
og det ma retfserdigvis regnes for 
det forste rigtige ETB-system. Der 
havde vaeret andre forsog, men 
fremkomsten af Wordstar skabte 
en ny standard for bedeimmelse af 
professlonelle ETB system er. 

Som dansker har det i flere ftr irrite- 
ret mig, at »professionelle« ETB-sy- 
stemer til min trofaste 64'er altid var 
pa engelsk. Der er dog her pa 
det sidste fremkommet nogle tekst- 
behandlingssystemer til 64'eren pa 
dansk, men dem jeg har provet. har 
vaaret langsomme, og sa har de 
manglet mange af de faciliteter. der 
indgar i »professionelt« ETB. Jeg 
har derfor - min uvilje til trods - mat- 
tet bruge engelsksproget ETB. 

Som I sikkert kan forsta. var det 
med spaanding, jeg gik i gang med 
Commodores »professionelle«< 
ETB-system EASY SCRIPT, som nu 
(et par ar for sent) endelig er over- 
sat til dansk. 
Det forste, derfalder i ojnene, nar 
man stir med ES i handen. er bru- 
gervejledningen. Det er en stor blfi 
sag pa 123 stk. A-4 sider, og nar 
man laeser i den, opdager man til sin 
forbavselse, at det er lykkedes 
Commodore at skrive en rimelig, 
letlasselig og forstaelig brugervej- 
ledning. og ikke nok med det - det 
viser sig minsandten. at den ogsa er 
en gllmrende laerebog i tekstbe- 
handling, og man er saledes efter 
ca. 20 min. i stand til at bruge sit nye 
program. Den indeholder heller ikke 
alle de fejl, vi »datamanikere» er sa 




vant til - i hvert fald har jeg kun fun- 
det et par stykker. og de var af den 
type, der ikke betyder sa meget. 

Pa side 34 star der fd i stedet for 
ft (formatsyntaksen for fodnote-Si- 
nie). Side 13 nasvner. at man for at 
komme fra kommando-mode til ind- 
skrivnings-mode (EDIT), skal taste 
f1 /RETURN, men man skal kun ta- 
ste f1. Pa henholdsvis side 54 og 
109 er vist eksempler pa, hvordan 
man kopierer flere filer sammen til 
en ny fil. Der er angivet forskellige 
ordresyntakser (og begge virker), 
men hvorfor er der ingen krydshen- 
visning. Side 85 er syntaksen for ud- 
skrivning i spalter angivet som 
offxx, men den skal vaare ofxx - men 
som s.agt, det er bagateller 

Jeg vil tillade mig at gastte pa. at 
det er teknikere. der har oversat ES, 
da introduktionen og vaardien som 
opslagsbog kunne vaare en del 
bedre. 

Det virker ogsa komisk, at der 
star »du skal koncentrere dig-, »du 
skal udfore instruktionerne omhyg- 
geligt og prsecist«. Det er »pjattet«. 
for jeg har endnu aldrig laast en vej- 
ledning, hvori der stod »(ad vasre at 
udfore de viste instruktioner. og 
hvis du alligevel ikke kan neere dig, 
si prov at vaere sa ukoncentreret 
og uprascis som muligK Det kunne 
ellers vasre morsomt. Apropos mor- 
somt. man er skam ikke uden hu- 
mor ovre i Horsens, for i brugervej- 
ledningen skriver de, at det er tilladt 
at tage en sikkerhedskopi af ES. og 
nu kornmer det morsomme. det kan 
man ikke. Programmet er sikret sa 
godt, at Commodores Back-up pro- 
gram ikke kan klare det. heller ikke 
forholdsvis avancerede kopi-pro- 



grammer - de mest avancerede 
data-pirater kan sikkert. men ikke 
den potentielle koberkreds, den se- 
riose programbruger. 

Nar man loader ES ind, flakser 
ordene -Loader Easy Script" i alle 
farver, for at slutte med en menu. 
Man skal nu vaelge tegn pr. linie, fra 
40 til 240. Til almindeligt brug er 40 
mest praktisk. men hvis man skal 
have store tabeller e.l. ind, er det 
rart, at kunne vaslge op til 240 tegn. 
Valgene har ikke noget med udskrif- 
ten at gore, det er kun ordrer til 
indtastningsskeermen. Dernaest 
skal man vaelge. om man vil bruge 
tape eller diskette, og til sidst en 
virkelig god facilitet. valg af printer. 
ES kan nemltg arbejde sammen 
med mange printere og typehjuls- 
skrivere. og nar du har foretaget 
dine valg, hvert afsluttet med RE- 
TURN, kornmer du automatisk til 
EDIT-mode, hvor der nu star 55 re- 
digerings- og 35 formatteringsor- 
drer til din radighed. Den overste 
linie pa skaermen bruges af ES som 
status-linie, hvilket vil sige. at du her 
kan se hvilken mode (tilstand) du er 
i. hvilken linie og hvor pa linien du 
skriver. 

Her er jeg nod til at komme lidt 
ind pa overssettelsen af program- 
met. Alle tilstands-variablerne (mo- 
des) og fejlmeldinger er oversat til 
dansk, men det er formatteringsva- 
riablerne ikke. Jeg kan dog roligt 
sige, at det ikke betyder sa meget, 
da der ikke er sa mange, der er for- 
skellige fra dansk. eks. pi (paper 
lenght) papir laengde, tl tekst 
laengde. hd hoved osv. 

Dereren vigtig overssettelse, der 
mangier, og som jeg er overbevist ► 
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"Den f loppy er bare deruda ..." 




f-D 




Nar du selv konstruerer programmer, laver spil og har fart pa, 
er del vigtigt at disketten holder hvad den lover. Det gor Maxell. 
Disketten er antistatisk behandlet og kan aftastes mere end 10 
mill, gange uden kvalitetsforringelse. 
Maxell: det rigtige valg, der lever op til dine krav. 



BRUHN 
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om, skyldes en forglemmelse • for 
del kan bestemt ikke vaere sjusk?? 
Pa programdisketten er der udover 
selve programmet - 3 seqfiler - for- 
skellige formatterings- og udskrift- 
seksempler, f.eks. vises der hvor- 
dan man laver understregning af 
eks.vis en oyerskrrft pa bl.a. en 802 
printer, en nyttig facilitet, jeg Ikke 
kan finde i brugervejledningen, og 
disse filer er ikke oversat til dansk 
- i tid tafer vi om ea. en halv times 
arbejde for at lave en overssettelse. 
sjusk?? Ordren tor understregning 
er 0 = 163, og sa taster man f 1 10 pa 
linien under det, der skal understre- 
ges, det antal gange, der er tegn i 
ordet.afslut med RETURN. 

Der er sa mange muligheder i ES, 
at det vil vaere umuligt at komrne 
ind pa dem aile i detaljer. I stedet vil 
jeg kort lige naavne nogle af de mu- 
ligheder, man har: 

sog og erstat tekst 
find tekst 

midt-centrering af tekst 
valgfri margin, brudt venstre mar- 
gin, hojrestillet margin 
kolonne udskrift 

automatisk sidenummerering, mu- 

lighed for valg af startnummer 

fuld printerkontrol, brug af selvdefi- 

nerede tegn 

kopiere og flytte tekst 

slette et tegn, en linie, en blok, alt 

indsaette tekst 

fuld skaarmredigering, scroll i all© 
retninger 

vandret og lodret teksttabulator 
decimaltabulator, decimal-centre- 
ring i forhold til skllletegn 
automatisk tilsaatning af hoved og 
fodnote-linie 

automatisk tilsaetning af adresser 
eller tekst 

lagring pa band eller disk 
betinget sideskift under udskrivning 
understreget, fremhaevet eller stor 
skrift 

udskrive enkeltark, pausefunktion 

udskrive fortlobende bane, ingen 

papirlaengdetvang 

udskrive etiketter 

udskrive fortrykte formularer 

lagre deitekster 

kopiere filer op i tekst 

hente Basic og Comal programmer 

ind 

bruge databaser for automatisk til- 
saatning af adresser 
samle flere filer I en 

plus meget mere 



Bl.a, er det muligt at hente bade 
Basic og Comal-80 programmer 
ind, de skal blot forberedes ved at 
LISTE dem som sekventielle filer. 
Det er en virkelig god facilitet, ek- 
sempelvis for laerere og andre. der 
gerne vil skrive tekst i forbindelse 
med et program. Ja, man kan 
endda, hvis man har Comal-80, 
skrive sine programmer med ES, 
dog uden formatsymboler, for der- 
efter at hente dem ind med MERGE, 
og sa kore dem normalt. Jeg vil dog 
ikke anbefale det] da ES jo ikke har 
Comals syntakskontrol, og hvis 
syntaksen ikke er rigtig, virker det 
ikke. 

At Comal-80 arbejder sa godt 
sammen med ES, er en af de ting, 
man har glemt at medtage i bruger- 
vejledningen. Man behover f.eks. 
ikke (IhvertfaJd ikke hvis man »kun« 
skal skrive 400 linier) at fjerne sin 
Comal kapsel for at bruge ES. Man 
taster blot BASIC og loader ES ind. 
Hvis man prover det med Vizawrite, 
»kokser« det hele, nar man nar hen 
omkring linie 300. 

Jeg forstar godt, at producenten, 
Precision Software, onsker at sikre 
deres produkt, da det virkelig er et 
godt ETB-system. som givet. n4r 
kendskabet til alle faciliteterne bli- 
ver kendt, vil vaere eftertragtet, men 
hvorfor leverer Commodore sa ikke 
en "gratis- back-up diskette, det 
gor man i moderlandet USA. Det 
kan ikke vaere den ekstra omkost- 
ning, der afholder Commodore fra 
det, da ES i Norge koster Nkr. 
240,00, medens vi i her i Danmark 
ma betale Dkr. 585,00 for den dan- 
ske udgave, sa der ma da vaere rad 
til det. 

Det naeste i brugervejledningen 
jeg savnede, var et stikordsregister. 
Indholdsfortegnelsen er virkelig 
god og fyldig (7 A-4 sider), men det 
er frygtelig irriterende at skulle 
laese den igennem hver gang, der er 
en eller anden ordre, man ikke kan 
huske syntaksen pa.. Reference 
kortel lader ogsa en del tilbage at 
onske. 

Nar man endelig har et godt og 
letbetjent ETB-system i maskinen, 
vil man jo gerne beherske det hur- 
tigst muligt, sa derfor vil )eg tillade 
mig at stille Commodore det for- 
slag. at man sammen med ES - ud- 
over an gratis sikkerhedskopi - le- 
verer en skabelon til at laegge over 
64'eren, hvor bade ordrer og funkti- 
onstasternes betydning er patrykt. 



Oet ville gore det perfekt. og den 
ide ma I hos Commodore kopiere 
gratis. 



Selve programmet 

Nu til selve programmet, der er 
skrevet helt t maskinkode. og derfor 
meget hurtigt at arbejde med. Man 
har et arbejdslager pa godt 30000 
tegn, hvilket svarer til. at man pa 
een gang kan have 10 til 15 sider 
tekst i A-4 storrelse i maskinen ad 
gangen. Ved hjaelp af flette-facilite- 
terne i programmet, kan man i fort- 
lobende reekkefolge udskrive 1000, 
2000 sider, ja der er i praksis ingen 
begraansninger, da hvert dokument 
kan besta af 750 linier, og i en styre- 
fil kan man have 750 dokument- 
navne, hvilket giver en kapacitet pa 
75050, hvilket omsat i A-4 sider. 
med 60 tegn pa hver linie og med 60 
linier tekst, giver 6250 sider, og in- 
den du har skrevet dem. vil din 64'er 
formentlig vaere slidt op. 



Unodvendig advarsel 

Side 107 i brugervejledningen. star 
ADVARSEL. det er umuligt at gen- 
skabe en slettet fil. Det er ikke rig- 
tigt. Hvis man har kobt RUN fra be- 
gyndelsen. sa loader man blot pro- 
grammet »Diskdata« ind, det gen- 
skaber uden problemer en slettet 
fil. Programmet er offentliggjort i 
RUN nr. 2 arg.84. Men der er en ting, 
du skal huske, hvis du kommer til at 
slette en fil, det er at fjerne disket- 
ten omgaende - der ma hverken 
skrives eller Iseses fra den, for den 
er kureret af diskdata. 



Konklusion 

Easy Script er et godt kob. der inde- 
holder - pa neer en kalkulator (reg- 
nemaskine-funktion) - naesten alle 
de funktioner og faciliteter, der er 
indbygget i de store, dyre ETB-sy- 
stemer, og som ofte ligger i prisklas- 
sen 3-5000 kr. 

Det er meget nemt at leere at 
bruge ES, ogsa for dem, der ikke 
kender noget til computere eller 
ETB. Det er billigt at anskaffe udsty- 
ret (hardwaren), og hvis du allerede 
har udstyret, er der ikke sk meget 
at beteenke sig pa - hvad enten det 
er til kontoret, privaten eller til lek- 
tieskrivning. Alle (neesten alle) har 
noget, de kan gore bedre. billigere 
og hurtigere med ETB. ■ 
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EN »GOD« DISKETTE ER IKKE GODNOK 
HVER ENESTE SKC-DISKETTE SKAL VJERE PERFEKT 







^^^^^^ 






MINI FLOPPY DISK 

DOUBLE 51DE 
DOUBLE DENSITY 
SOFT SECTOR 
5% INCH 96TPI 



MD">r\r\ 




Vor nye 96 TPI og 3 l /z" mikrodiskctte er ingen undtagel- 
se. Hver enesie er undersegt og gennempravet, sector for 
sector, og garanleret 100% fejlfri. Vi er megei omhyggeli- 
ge, fordi vi ved, at en diskette, der ikke er perfekt, kan 
koste dig penge. Mange penge. Ikke kun diskettens pris, 
men ogsa prisen for at misie vrerdifulde informationer. 

Faktisk er vi fanatiske. nar det gEelder kvalitetskon- 
trol. Vi vil absolut selv fremstille hver eneste af diskettens 
komponenter — polyesierfilmen, den rnagnetiske belacg- 
ning, bindesystemet, alt. Selv den olie, der anvendes til 



polyesierfilmen, kommer fra vort eget raffinaderi. Men 
denne utroJige sans for detaljer betaler sig. for SKC- 
disketten er blandt de mesi palidelige, der nogen sinde er 
fremstillet. 

Og fordi vi er en af verdens stwrste producenter af 
Qeksible disketier, har vi en fleksibel holdning. Uansel 
hvilken slags diskette, du matte have behov for, sa kon- 
takl »SKC«. Nar alt kommer til all, har vi ikke udviklet os 
til ct selskab med en omsaetning pa 7 mia. ved al sige 
»nej« ill vore kunder. 



IT. Video 
Production aps 
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INPUT/OUTPUT 



M Tot Engebakken 




INPUT/OUTPUT er RUNs laaser- 
brevkasse, hvor du har mulighed for 
at fa svar pa nogle af de problemer, 
du gar og turnter med. 

Desvaarre kan vi Ikke n a at besva- 
re atle de breve, vi modtager. Vi 
prover at fa sa mange med som mu- 
ligt og udvaalger dem, vi mener, der 
har bredest interesse. 

Commodore-interesserede, som 
har sporgsmal eller tips at bldrage 
med, kan skrive til Tor Engebakken, 
Brandvoldgatan 1, 2000 Lillestrom, 
NORGE. 

INPUT 

Jeg burde sefvfolgelig sige tak for et 
godt blad, men det falder lidt svasrt 
- efter sa*dan en naif 

Jeg har haft en 64'er i et Sr. og 
fgler mig rent programmerings- 
maessig fkke pa" bar bund, men jeg 
er i RUN nr. 3 kommet pa en op- 
gave, nem/ig at fi indtastningspro- 
grammet til at kore. 

Det drejer sig om forste linie i 
programmet Supermen 64- {2048} 
og linie 2090. tndtastningen af pro- 
grammet stoppes lige efter sidste 
ciffer, og indtastningen skrottes 
med en fejlmelding. HAber at fa* en 
forkiaring pi dette. 

Mange gode hilsener 
Jan Dahli 
"Bakkehuset« 
Box 717 
6000 Kotding 

OUTPUT 

Det var da beklageligt, at du har haft 
sadan en anstrengende nat! Forha- 
bentlig kan folgende redde dinsovn 
fremover, 

Der er ikke nogen fejl i program- 
met, hvis du folger instruktionen 
noje. De sidste datalinier skal imid- 
lertid ikke tastes ind pa saadvanlig 
Vis. 

Nar du har indtastet forste del af 
programmet, saver du det. Derefter 
slukker og tasnder du for compute- 



ren. For du indlseser programmet 
igen, skal du skrive tolgende: 
POKE 8192,0:POKE 44.32;NEW 
Indtastningsprogrammet er en 
slags generator, som lagrer et faer- 
digt rnaskinkodeprogram. Dette 
faardige program vil blive lagt fra 
adresse 2049 og fremefter. Det er 
samme sted, som de saadvanlige 
programmer ligger (incl. indtast- 
ningsprogrammet, selvfolgelig). 
Del er derfor 100% nodvendigt med 
ovenstaende POKE'er, for at fa pro- 
grammet tilatfungere. Ellersvil pro- 
gramme! forandre sig selv og ga 
helt i smadder. Noget andet er, at 
der har manglet nogle linier i selve 
"Supermorv-programmet, men det 
kan du laase om i RUN-amok. 




INPUT 

Til Tor og RUN 

Jeg er na*sten ny r cornputerverde- 
nen og synes, det er spasndende. 
Jeg har en C16. som ikke altid vil 
som jeg vif. Jeg kan bla. ikke fa den 
til at bruge REM og POKE, som der 
stSr I bogen. Ifolge bogen, skul/e 
REM udskrive det, som stSr lige 
bagefter, men det kan jeg ikke fa" 
den til POKE ordren forstar jeg 
bare ikke, og kan du helt nojagtig 
forklare mt'g, fivad en adresse er? 

Kan C-64 PEEK-kommando 
overseettes til en eller anden C- 16 
ordre? Jeg vil gerne kunne prove 
nogle af de programmer, der kom- 
mer til VIC-20 og C-64. 

Hilsen 

Thomas Pedersen (14 £r) 
Eskasrhojvej 5 
6100 Haderslev 

OUTPUT 

Der har nok indsnegei sig en lille 
misforstaelse, nar det gaelder 



REM-kommandoen. Dette erfaktisk 
en komrnando, som ikke gor nogen 
verdens ting! Nar du skriver REM 
md i programme!, vil alt, som kom- 
mer efter pa samme linie blive igno- 
reret af maskinen. Pa denne made 
kan du skrive kommentarer ind i dit 
program. De kan vaare gode at 
have, nar du senere kommer tilbage 
til programmet og ikke kan huske, 
hvad de forskellige ting gor 

Hvis du skal have skrevet noget 
ud pa skaarmen, bruger du PRINT- 
kommandoen. 

For at forsta POKE-komman- 
doen, ma du vide, hvad en adresse 
er, sa vi kan lige sa godt begynde 
fra en ende af. 

Datamaskinen kan p3 mange rrta- 
der ses som en sammenhaangende 
raakke af lagerkasser. I hver af disse 
kasser kan vi laegge et tal. Af for- 
skellige grunde skal disss tal vaare 
mellem 0 og 255. Vr ma ogsa have 
en made at holde orden pa. hvor de 
forskellige tal ligger og derfor num- 
mererer vi gerne kasserne fra 0 og 
opefter. Adressen til sadan en la- 
gerkasse er derfor et nurnmer i rask- 
ken af tal fra 0 til 65535. For at laagge 
el tal pa et bestemt sted i maskinen, 
har vi derfor en komrnando, der 
hedder POKE. POKE 1024,23 bety- 
der. at du vil laagge tallet 23 ind i 
adresse (kasse) nr. 1024. PEEK- 
kommandoen er det modsatte af 
POKE. I stedet for at laagge et tal ind 
i "kassen». ser du efter hvad der 
ligger der (Peek = kikke). PRINT 
PEEK(1024) vil skrive det tal. som 
ligger i adresse 1024. 

Siden C-16er ganske anderledes 
opbygget end C64 og VIC-20, kan 
du desvaarre ikke regne med, at et 
program, som indeholder PEEK og 
POKE kan kore pa andre maskiner 
end det er skrevet til. 
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INPUT 

Hej Tor 

Jeg har et problem jeg haber. du 
kan hjselpe mig med. Jeg har set 
nog/e programmer, hvor kan ten er 
delt op i flere farver. Hvordan gor 
man del? 

Hi/sen 

Henrik Johansen 
Gammelgade 1D 
8723 Losningen 

OUTPUT 

For al fa forskelliig farve pa kanten, 
ma du benytte dig af raster-mter- 
rupt. Listning 1 ssetter to forskellige 
farver op pa skasrmen, og ved nogle 
enkle POKE-kommandoer kan du 
sastte farver op pa skaermen, som 
du VH. 

POKE 679.x angiver hvor den over- 
ste farve skal begynde 
POKE 681,x forandrer farve 1 
POKE 682,x forandrer farve 2 
POKE 683.x forandrer afstanden 
mellem de forskellige farver. 
Ved at POKE et tal ind i adresse 680 
vil du opna en rnorsom effekt. Far- 
verne vil scrolls nedover kanten af 
skaarmen. Farten vil vsere afhasngig 
af tallet. som du laegger ind i 
adresse 680. Hvis du POKEY 680.1. 
vil det ga ganske langsomt, men far- 
ten oges. hvis du lasgger et storre 
tal ind. Prov med forskellige veerdier 
til du finder den effekt, der passer 
dig. 




INPUT 

Hej Tor 

Jeg har nogle sporgsma"/, som jeg 
meget gerne sa besvaret, si jeg kan 
komme vtdere med mine program- 
mer. 

1. Hvordan kan jeg fa fat i en kom- 
menteret listning af 64 'erens ROM? 
(Pris?) 

2. Hvor kan jeg kobe en rnaskinko- 
demonitor med decimal og hex ind- 
s tilling? 

3. Hvordan overs&tter man et to- 
bytes tal til decimal og omvendt? 

Hi/sen 

Johannes 0. Lindstrom 
Liljevej 8 

3600 Frederikssund 

RS Tak for et godt blad! 



OUTPUT 

1. Der findes flere boger pa marke- 
det. og en |eg trygt kan anbefale er 
-The Conmmodore 64- ROM's re- 
vealed.- Den er skrevet af Nick 
Hampshire, og indeholder en detal- 
)erel og kommenteret listning. 

En anden god bog er -The Ana- 
tomy of the Commodore 64- fra 
Abacus Software. Denne bog er 
ikke fuldt ud sa godt kommenteret, 
men indeholder til gengaald en del 
tips og tricks. Prison pa begge bo- 
ger ligger pa omkring kr. 250.00. 

2. En af de bedre maskinkodemoni- 
torer til Commodore 64 er uden tvivl 
HESMON fra Hesware. Den koster 
ca. kr. 450,00. Ellers er Superrnon. 
som har vaerel listet i RUN et ud- 
maerke! alternate. 

3. For at finde low og high byte af 
et tal skriver du bare: 

10 HIGH=INT(tal/256):LOW=tal - 
HIGH#-256 

Den modsatte vej er lige sa enkel: 
10 tal= (HIGH*256) + LOW 




INPUT 

Hej RUN! 

1. Kan man med en funktion fa* mi- 
nus-tegnene i et tal vsek? 

2. Hvad koster et modem, og hvor- 
dan bruges dette? 

3. Kan man PEEK'e bandstationen? 

4. i RUN nr. 4 blev der pS side 63 
bragt en annonce. hvori der stod 
folgende: 600 gange raskere med 
BASIC- AID. Stemmer dette? 

Hi/sen 
Ole Tange 
OmmegSrdsvej 8 
6971 Spjald 

OUTPUT 

1. Du har jo en funktion. der hedder 
ABS. Denne funktion returnerer den 
absolutte vserdi af en variabel. Dette 
vil sige. at den slet og ret gor aile tal 
til positive tal. 

Hvis tallet Itgger i en streng, kan 
du prove denne metode: 
10 IFLEFTS(TALS,1)= — THEN 
TALS - RIGHT$(TALS,LEN- 
(TALSH) 

2. Prisen pa et modem varierer me- 
get, alt efter hvor avanceret du vil 
have det. Du m& nok regne med et 
par tustnde kroner for et af en rime- 
lig standard. Et modemi bruges til 



at ringe op til andre datamaskmer. 
Disse maskiner kan vasre tilkoblet 
en eller anden form for database. Pa 
denne made er det multgt, al fa ad- 
gang til alverdens informationer fra 
sin egen stue. Du tilkobles sasdvan- 
ligvis over telefonnettet, og du bor 
huske pa, at udgifterne pa ingen 
made er slut, nar modemet kommer 
i hus. Daglige samtaler med f.eks. 
USA kan hurtigt dreje sig om store 
belob! 

3. Du kan fa adgang til information 
om bandstationen ved at PEEK'e 
adresse S01 . Bit 4 vil fortaelle, om en 
tast er trykket ned, og bit 5 fortsel- 
ler. om motoren gar. Kor program- 
met nedenfor og tryk liidt pa ta- 
sterne pa bandstationen. 

10 A— PEEK(1 );IFAAND15THEN- 
PRINT..INGEN TAST ER TRYKKET 
NED.«:GOTO20 

15 PRINT- EN TAST ER TRYKKET 
NED.« 

20 IFAAND32THENPRINT-MOTO- 
REN GAAR IKKE RUNDT- 
"GOTO10 

40 PRINT-MOTOREN GAAR 
RUNDT«:GOTO10 

4. Uden at have testet programme!, 
kan jeg sige, at det er en sandhed 
med en hel del modifikationer. Sa- 
vidt |eg har ladet mig fortaelle , er det 
ikke alle BASIC-ord. som gar gen- 
nem compileren. og for det andet er 
det naappe alle kommandoer, der 
bliver 600 gange hurttgere. For du 
evt. bestemmer dig for at kobe BA- 
SIC-AID, bor du fa rede pa, hvilke 
begrasnsnlnger den har. 




INPUT 

Hej Tor 

Jeg er en ivrig bruger af Commo- 
dore 64, og har lige investeret i en 
MPS 802 printer. 

Imidlertid har jeg problemer med 
at fa skrevet grafik ud pa den. Jeg 
har en del grafikprogrammer. men 
jeg kan ikke fa* printeren til at virke. 
Jeg har ogsa set en del sma-pro- 
grammar, som laver screen-dump, 
men der bliver spurgt om bit-map 
adresse - hvordan i alverden finder 
man den? 

Hi/sen 

Jorgen Jacobsen 
Bjarkesvej 134 
7800 Skive 
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OUTPUT 

Det er synd al printeren ikke gar 
sammen med dine grafikprogram- 
mer. Det skyldes antagelig, a! pro- 
gfammerne er lavet lil en 801 -prin- 
ter. Nu er der imidlertid mgen grund 
til at fortvivle. En 802-printer har 
selvfolgelig samme (om ikke bedre) 
mulighed for at lave grafik. 

Der er imidlertid en forskel pa 
selve printerhovedet. Mens en 801 
har en 7*7 dot-math ce. har 802 en 
8*8. Dette gor, at det faktisk er 
lettere at dumpe en skaerm til en 
802 end lil en 801. 

Nar du saetter en hojoploselig 
skaerm op pa en Commodore 64, 
henterdenne information om grafrk- 
ken fra en hukommelsesblok pa 8K. 
Hver bit som er sat indenfor denne 
blok, vil blive skrevet ud pa skaer- 
men. Hvis du ikke har sendret, hvor 
videobank skaerm og grafik ligger. 
starter hajgrafikskaermen som re- 
gel fra adresse 8192 (Bit-map 
adresse!). De otte forste byles vil 
indeholde bitmonsteret »karakte- 
ren« i overste venstre hjorne af 
skasrmen. De naeste otte vil svare til 
den nseste karakter osv. Nar du skal 
dumpe en skaerm til en printer, ma 
du hente otte bytes fra hukommel- 
sen. selv definere et tegn pa prin- 
teren, skrive det ud, og hente det 
nseste. Nar du har gjort det 40 
gange. er du faerdig med oversle 



linie. Derefter printer du en ny linie, 
og fortsaetter til du har gjort det 25 
gange. 




INPUT 

He/ Tor! 

Pa VIC-20 kan man formindske og 
udvide skaermstorretsen. Kan man 
ogsa dette pS en 64'er? W sidst vil 
jeg takke for et godt b/ad, og an- 
mode om. at der i btadet kom en 
serie, der beskriver memory-ma - 
pen. 
Hilsen 

Lei1 Rasmussen 
Torvegade 
5000 Odense C 

OUTPUT 

VIC-20 kar> jo forandre storrelsen 
pa skaermen ganske enormt. Denne 
mulighed har en 64'er ikke (Endelig 
et omrade, hvor VIC'en gar af med 
sejren). Du kan ganske vist mind- 
ske skasrmstorrelsen pa en 64'er 
ogsa, men resultatet bliver ikke sa 
drastisk. Saadvanligvis er skaermen 
40"*25 karakterer. Hvis du har be- 
hov for det, kan vi imidlertid redu- 
cere skaermen til 38*24 karakterer. 
Skaermadresserne vil stadig vaare 



de samme, men disse data i yder- 
kanten vil ikke leengere veere syn- 
lige. Dette har mest interesse for 
scroll-rutiner, hvor vi har brug for et 
sted at laegge de nye data, sa de 
ikke ses pa skaermen, 
POKE53272,PEEK(53272)AND247 
ssetter skaermen til 38 kolonner 
POKE53265.PEEK(5326S)AND247 
saetter sksermen til 24 tinier 

De tre nederste bit i de to regt- 
stre kontrolEerer, hvor meget skaer- 
men scrolles. Laeg maarke til. at der 
i x-retningen er to kolonner, som er 
skjult, mens der i y-retningen kun er 
en linie. Hvis de tre nederste bits er 
0, vil overste linie vaere skjult, hvis 
alle tre er sat (7), vil nederste linie 
vsere skjult. 

Din anmodning om en serie om 
memory-map'en er taget til efterret- 
ning, og den garnle redaktor synes, 
det er en god ide. 



TH sidst er kun at korrfgere en fejl 
i en tidligere spalte. Det gselder en 
spalte i RUN nr. 3 1985. Det sidste 
sporgsmal pa side 22 om sprites. 
Der havde jeg foreslaet at haeve 
starten af BASIC til 4096 for at fri- 
ge-re plads til spritedata. Den rigtige 
made at gore dette pa skal veere: 
POKE44 ,64 * 64/256 :POKE64* 
64,0:NEW m 



Listning 1 


210 DflTfl2. 24. 109. 169. 
615 


2. 141 


. 167. 2. 




250 DflTfllll . 19. 209. 76 


. IB?. 


192, 173, 


IBB A = 49152: I =0: J 3 


170. 1085 




110 FORK=0TO?: REfiDB: 1 FB=- I THENG0SUB13B: S 


260 DATA 2 , 141 , 32. 208. 


169, t 


. 141 . 48 


YS49152:EN0 


. 742 






120 POKEfltl .0: I =1*1: J =J tB: NEXT: GOSUB130: 


270 GflTAl92. 173, 167. 2 


. 24. 109. 171 , 


GOTD1 10 


2, 840 






130 REflOflS: IFAS O J THENPR INT FEIL I DflTflS 


2B0 Qf»Tfll41 . 18. 208. 173. 17. 


208. 41 . 


ETNING : PEEK [63 3rpEEK(6^ )*256: END 


127. 933 






140 J =0: RETURN 


290 DATfiUl. 17. 208. 173. 13. 


220 .41. 


lS0DflTflt20. 169. 127. 141. 13. 220. 163 


1.814 






. 49. 1008 


330 DPTP240. 3. 76. 49. 


234 . 76 


. 188, 25 


160OflTfll4t, 20, 3, 163, 192, 141, 21, 3 


4. 1128 






. 690 


310 DflTp-l . 0 






170 pflTP 169 , 129, 141. 26. 208, 88, 162, 








B . 923 








180 PflTflHZ, 33, 208. 142, 3 67. 2. 112, 








160. 100 4 








19? DflTflZ. 232. 232, 142, 169, 2, 232, 1 


KONTPOLSUPI FOR LISTNING 


1 




42. 1153 








200 PPTP170, 2, 169, 128, l*U , 171, 2, 9 


IBB 227 110 129 


120 


106 


6. 871 


130 129 14B 244 


150 


20 


210 DP-TflB. 169. 1. 141. 25. 200 . 173, 19 


160 21 170 142 


180 


2Z0 


. 765 


190 164 200 80 


210 


36 


220 OflT|4132 . 240. 27, 173, 169, 2, 141. 


220 MB 230 Z46 


210 


232 


32, 976 


250 30 260 26 


270 


SI 


230 DATAZB8. 163, 0, 141. 16, 192, 173. 


280 183 290 65 


300 


MB 


167. 1098 


310 93 







\4 
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FANTASTISKE TILBUD 



0STERBROGADE 



-DITMIKROCENTER 



Pakketilbud: 

Commodore 64 
+ 1531 Datasette 



Kun 



2.595,- 



Commodore 64 m QQE 

+ 1541diskettestation. Kun 4.SISIU," 

incl. moms 



Forst med sidste nyt: 
Commodore 128. 



Kr 4.995,- 

incl. moms 



Commodore 64 


2.295.- 


Datasette 1531 


395,- 


Diskettestation 1541 


2.995.- 


Printer MPS-801 


2.495, 


Printer MPS-802 


3.495, 


Monitor 1701 


3.295, 




incl. moms 




Nyhed 




Seikosha SP-1000 med 




Commodore interf ace 




Aim . skrift + brevkvalitet. 




<VetegneIttl128) Kun 


5.673,- 




incl. moms 


Hardware: Til erhverv 


Commodore PC-10 


19.950,- 


Commodore PC- 20 


30.950- 


256-51 2K udvidelse 


3.195.- 


512-640K udvidelse 


1.595.- 


Farve/grafikkort 


2.995.- 




incl.moms 


Tekstbehandling: Til erhverv 


Word-Result 


3.500,- 


Wordstar 


5.300.- 


Multimate 


8.800.- 



Administrativt software: Til erhverv 



Alle priser lil erhverv er excl. moms 



Vit de alrienie mstal lere 
og selv indkore . kan du 
spare en del- ring og 
hor om mulighedeme. 



VMIBOLX 

/VllKRODATk 



Osterbrogade 117 - 2100 Kbh. 0 
Til 01-18 33 66 



Hera-Soft 




PC-Finans 


3.000.- 


PC-Faktura 


3.000.- 


PC-Debitor 


2.000,- 


Maxi-Finans 


4.000, 


Maxi-Faktura 


4.000, 


Maxi- Debitor 


4.000, 


Maxi-Kreditor 


2.500, 


Maxi-Lager 


2.500, 


Ved samlet kob 


15.500, 


Printere: Til erhverv 


Seikosha SP-800 


4.250,- 


STARSG-10 


5.495, 


NEC P2 


12.800, 


Triumph-Adler TRD-7020 


5.300.- 


Printerkabel 


550, 


Busy Pack: Til erhverv 


Finans 


5.972,- 


Finans/debitor/kreditor 


10.656, 


Totalsystem 


17.760.- 


Kalkulation: Til erhverv 


Calcstar 


1.800, 


Multiplan 


2.795,- 


Calc Result 


3.500.- 




S <mvk raraktei saet 



Af Bjarne V. Jensen 

Commodore-64 kan forsynes med 
et dansk karaktersaM p5 flere ma- 
der. En af maderne er at udskifte 
karakter-RQM'en inde i compute- 
ren med en anden, sa asndringen 
bliver permanent. 

Man kan ogsa va?lge at gore det 
med et program, som man sa ma 
kore. hver gang man vil have dan&ke 
bogstaver pa skasrmen, Det kan go- 
res pa mange mader. Der har tidli- 
gere vseret vist en metode her i 
RUN (i ovrigt el udmaerket pro- 
gram), men metoden havde den lille 
ulempe. at den ikke umiddelbar 
kunne anvendes pa programmer 
med POKE-kommandoer til skasr- 
men, idet skaarrnomradet btev flyt- 
tet. 

Det her viste program flytter Ikke 
skaBrmomradet, denmod flyttes 
BASIC-start fra blok 8 til og med 
blok 31, f.eks. til sprites (i sprites- 
blokkene 32 til 127) eller til maskin- 
kode -programmer. Karakterssetlet 
flyttes fra ROM'en til RAM-omradet 
fra blok 32 til og med blok 47, og de 
danske tegn as, o, a, /E, 0 og A 
tilfojes. Alt dette sker, nar program- 
met »Dansk karakterseet C-$4» loa- 
d'es og run'es. Bagerter kan et al- 
mindeligt Basicprogram loades ind. 
og heri kan de danske karakterer 
benyrtes. 

Hvis man tilfojer de to nedensta- 
ende programlinier i programmet 
»Dansk karaktersast C-64«, har man 
en speciel udgave, som automatisk 
load'er det nseste program ind og 
run'er det: 




12 PRINTCHR$(147)»LOAD«CHR- 
S(34)»navn»CHR$f34)» > 8" 

13 ?:?:?:?:?»RUN»;POKE631.19: 
POKE632,13:POKE633.13:POKE19 
8,3 

Ordet »navn" i linie 12 skal vaare 
navnet pa det program, der skal lo- 
ad 'es. Hvis det skal virke pa ban- 
doptageren, kan tallet 8 i linie 12 
sendres til 1 , Man kan ogsa undlade 
linie 13 og asndre linie 12 til: 
POKE631,131:POKE19B,3 
Deryed bliver det nasste program 
pa bandet load'et og run'et - uanset 
navn. 

Programmet er opbygget, sa det 
er let at tilfoje andre specielle Tegn 



I linie 40 angives antallet af karakte- 
rer, der skal aandres. Hver af de ef- 
terfolgende datalinier reprassente- 
rer en karakter. Det forste tal er ka- 
rakterens POKE-vaardi (der skal 
laagges 256 til, hvis det en karakter 
i sast 2). De efterfolgende 8 tal i 
linie n er karakterens udseende. 

Programmet genererer selv de 
tilhorende negative tegn (invers vi- 
deo) De otte tal, der bestemmer 
karakterens udseende, beregnes 
pa samme made som ved bereg- 
ning af sprite-data. Prov at sam- 
menligne den afbildede figur med 
linie 50. som Indeholder data for ka- 
rakter nr. 27. 



• 1 I 1 I l ■ ■ X ■ 1 > » . > . . V , , , i . , ! i , , , 

* OflNSK KflRfiKTERSflET C-64 * 

* flF BJARNE U JENSEN * 



0 REP1 

1 REM 

2 REH 

3 REM 

4 REn 

5 FOR I =0TO80: REnDD:POKE50000fl ,p: NEXT 

6 FORI --0TO5:REP.DD:POKE49152i I ,Q; NEXT 

7 P0KE56331 ,PEEK[S6334 JW0254 

8 POKEl .PFFKC I DflN075l ! SYS50900: POKEI .PEE 
M 1 )OR4 

9 POKE56334 .PECKCS6334 )0R 1 i P0KE53272.25 
16" REOPfl: FOR I =1 TOft: RE nOO'- FORN -310? : REpQT 
1 1 POKEO*0»256*37TN.T;PnKF(Dr 129 D*8i-Z56x 
37rN.255-l:NFXTN,I 

H PRINT f J 1 :nOKF756*18.B:POKF<14.4e:N 
FU 

16 DP- JO 1 CS . 34 . 72 . 1 65 . 35 . 72 , 1 65 . 36 

19 Pflrfl72, 165 ,3?. 72.2 16. 1?3. 8.192 

20 Ortrfl I 33. 31.1 73.1 .192.133.35.173 



22 DflTfi-4 . 1 9 2 . 1 33 . 36 . 1 7 J . S . 1 9 2 . 1 33 
24 PflTfl37. 160,0 , 165.31 .205.2 .192 
26 OflTflZ09,7 . 165.35.205.3.19 2.210 
20 DATA l 9 . I 77 . 31 . I 15 . 36 , 238 . 34 . 208 
30 DATA?. 730- .35 .230.36.208.2 .230 
32 PnTft37,24 , I 44 ,223 , 181 . 133 ,37 , 101 
34 DATA I 33 . 3 6 . 1 04 . 1 33 .35 . 1 04 . 1 33 , 31 
36 pnTn96, 0.209 .0.224 .0 ,32 
30 REM **** RESTF.N ER KflRflK r CRER x**X 
40 PMA9 

50 0*Tfl27.63 . 1 08 . 1 08 . I 27 . I 09 . 1 08 .111,0 

55 PATA28.29 .54 . 103.187,1 15,54 .92.0 

60 001023.12.0.29.54.99.127.99.0 

65 PP.Tfl293. 0.0, 55. 33. 63.100. 63.8 

70 POTfl784 .0.0 .62 .303.107.115 .62 . 0 

75 0flTflZ85. 12, 0.60. 6. 62.1B7.6Z.0 

80 PPTA347.63. 109 .1 08. 127. 108.1 08 .111.0 

85 DF»Tfl349.?9.54 .103. 10?. 1 15 .54 ,92 .0 

90 DATA349. 1 2,0 . 28 . 54 . 99 . 1 27 .99 .0 
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Et sikkert 
teen 



Af flamming Lerbaek 

I en verden, hvor den ene computer 
afloses af den naeste, laange inden 
brugerne har vaannet sig til dem. er 
det blevet nodvendigt at kende de 
tegn, der vlser sig, nar en computer 
synes at blive en succes. Det bety- 
der for brugerne, at de kan spare 
penge. For de behover ikke - sa tit 
- at skifte computer. Sadanne tegn 
er tydelige, nSr det gaelder Commo- 
dores nye treenighed 128. 

Et af de tydeligste tegn, der fin- 
des, er softwarehusenes interesse 
for at lave software til opkomlin- 
gene. Her er 128'eren sikret en suc- 
ces, idet den som bekendt indehol- 
der en komplet 64'er. Altsa alt soft- 
ware fra verdens vel nok mest po- 
pulaere hjemmecomputer kan ogsa 
bruges pa efterfolgeren. Men soft- 
warefabrikanterne lader det be- 
stemt ikke blive ved det. Data Be- 
cker er blot et at de mange huse, 
som nu satter vind i 128'erens sejl. 
I forste omgang med den nye bog 
••Der neue Commodore 128«. Altsa 
den nye Commodore 128. Men 
hvorfor dog kobe en bog om en 
computer, man knap nok kan fa i 
handelen? Det er der mange gode 
grunde til!!! 

Data Becker er et Vesttysk for- 
lag, der ogsa saalger hardware. Og 




hvilket salg. Flere af forlagets boger 
om Commodores topssellert C64 er 
solgt i mere end 80.000 eksempla- 
rer. Og man kan efter min mening 
godt regne med, at det er kvalitet, 
der kommer fra Dusseldorf I disse 
ar Bevares, der har vaeret alminde- 
ligheder imellem. Men aldrig darli- 
gev ting - efter min mening altsa. 

Nu har Data Becker faet en nor- 
disk forhandler med adresse t Ring- 
kobing, nemlig Nordic Computer 
Software. Det betyder, at man kan 
begynde at fa forlagets ting ogsa 
her i landet. Og det for de flestes 
vedkommende pa enten tysk eller 
engelsk. 



128 bogen 

En af forlagets forcer er hurtighed. 
Det er bevlst med 128-bogen. Alle- 
rede inden computeren er i hande- 
len, har man her chancen for, at fa 
alle relevante oplysninger, for man 
ofrer de ca. 4.500 kr.. som hardwa- 
ren formentlig kommer til at kosle. 
Og hvilke oplysninger, 



Bogen daakker sa at sige alt, 
hvad der er vasrd at vide pa forh&nd : 
hardwareoptysninger, program- 
sprogene, operativsystemerne, pe- 
rrferludstyret, zeropage-belaagnin- 
gen. belaegningen af de mange 
ROM/BAM i de forskellige driftssi- 
tuationer og meget mere. 

Det mest interessante ved 
128'eren er vel nok den relativt lave 
pris i forhold til den utrolige for- 
m5en. den har. Men der udover er 
det vet den kendsgerning. at man 
ikke blol far sen ny computer, men 
tre! 

Disse tre computere er som 
naavnt en C64, en 128'er og en CP/ 
M maskine. Drevet frem af tre for- 
skellige chips og deres fortrasffelig- 
heder. Altsammen beskrevet meget 
tydeligt i bogen. og man kan efter at 
have Isest den trasffe sit valg: er 
128'eren fremtiden? 

••Commodore 128». 21S sider, 
199,00 kr.. Data BeckeryNordic 
Computer Software. Ringkobing.l 



Annonce: 

Maskinkode Programmering C 64 



AOF i Ballerup har gjort det Igen 

Maskinsprogsprogrammering af 
C64 for begyndere. Kursus starter 
helt fra bunden, og krsever Ikke 
sserlig forhandsviden, bortset fra. at 
lidt almen viden om C64 ikke er no- 
gen skade til. f.eks. lidt BASIC-kun- 
nen og betjening af maskinen. Vi 



kommer til at gennemga bade soft- 
ware og hardware, samt brug af as- 
sembler og disassembler. Skynd 
dig, tilslutningen plejer at vaare stor. 
Kursus varer 60 timer og koster 
normalt 420.00 kr. 

Ring til AOF-Ballerupkredsen pa 
Tlf. 02 - 651166. 



Kursusstart: ca. 1/10 85. 
Kom og se AOF udstillingen i Balle- 
rup Centeret den 12., 13., og 14. 
seplember fra kl 10 til toutik-lukke- 
tid Vi viser vore aktiviteter gennem 
arbejdende stande (ogsa cornpu- 
terundervisning) 



ALLE KAN DELTAGE UANSET BOP/ELSKOMMUNE. AOF BALLERUPKREDSEN 02-651166 
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Katalogmanipulation 

Hvis du kikker pa dine diskette- 
oversigter og synes, de ser rode- 
de ud f er der her et program, der 
kan bringe lidt orden i sagerne. 

Med dette program er du i 
stand til at flytte rundt pa filerne, 
og du er I stand til at ski I le de en- 
kelte programmer med linier. Pa 
den made bliver hele din diskette- 
oversigt iangt mere overskuelig. 

Programmet har foigende faci- 
liteter 

F1: Vaelger den ffl, man vil flytte 
F2: Kalder fildeler frem (skille- 
streg) 

F3; Fiytter fii op (efter tryk pa F1) 
F4: Slette-r fll (efter tryk pa F1) 
F5: Fiytter fil ned (efter tryk pa F1) 
F6: Tllbage til udgangsposition 
F8: Saver ny directory 
Fremgangsmaden er foigende: 
Du vaelger fil med F1 (evt. ski I- 
lestreg med F2), flytte rop eller 
ned med F3/F5 og sastter den nye 
position ved igen at trykke pa F1. 
Nar alt er, som du onsker det, sa- 
ver du dine oversigt ved tryk pa 
F8. 

Programmet er lavet af Henri k 
Larsen fra Frederikshavn. 

Super Quickfind 

Morten Knudsen har lavet oven- 
staende program. Dette program 
kan hurtigt og nemt finde et pro- 
gram (pa bSnd). 

Lad os sige, du har 12 program- 
mer (alle hjaalpeprogrammer), 
som du vil benytte. I llnie 103 
asndrer du DATA NO til DATA 12 
(max. 20 programmer). I linie 107 
aendrer du HEADLINE til HJ/EL- 
PEPROG RAMMER (hajst 39 
tegn). Fra linie 111 indtaster de 
enkelle programnavne med evt. 
bemaerkninger. Hvis ingen be- 
mserkninger, skal linien afsluttes 
med et komma. 

Programmet har nogle vigtige 
funktioner, der ikke er normalt i 
et quickflnd-program: 

1. Overskrifter (Headlines) 

2. BemEerkninger (hojst 19 tegn) 

3. Valg mellem normal- og turbo- 
load 

4. Ved almindellg load vaelges 
mellem opstart af program og 
aim. indloadning. 



ZOMBIE 

Fra vor laeser i de norske flejde 
har vi modtaget dette fremragen- 
de spil, der i mange henseender 
kan male sig med nogle af de pro- 
fessionelle spil, der udbedes pa 
markedet. 

Det er en rigtig uhyggelig gang 
trasken rundt pa en kirkegard 
mellem ondskabsfulde ander. In- 
gen fra RUN's redaktion har over- 
levet ret lang tid, og vi kan garan- 
tere et speendende spil, der virke- 
lig kan veere en udfordring. 

Spillet er selvforklarende og 
behever ikke nasrmere forklaring. 
Vi kan imidlertld love, at det er 
umagen vaerd at taste ind. 
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Karakter-tegner 

Fra Fritz Nielsen i Glyngore harvi 
modtaget dette program. 

Karakter-tegner er et hjaelpe- 
program, hvor man kan definere 
sit eget tegnseet. 

Under programkorslen kan 
man trykke pa F1, hvorefter en II- 
ste af alle funktioner vises. Der er 
bl.a. mulighed for at loade og sae 
tegnsaettene pa band eller disket- 
te. 

Hvis man sa onsker at benytte 
tegnsasttet, kan man loade det 
ind under brug af karakter-tegner, 
ved at taste foigende: 
LOAS ,, K.(navn)",8 l 1 
POKE53272,(PEEK(53272)and240) 
OR12 

og derefter loade hovedprogram- 
met ind. Hvis hovedprogrammet 
er ret stort, kan det dog ske, at 
programmet og tegnsasttet "Over- 
lapped hinanden. Tegnsasttet 
bliver derved odelagt. 



Kryds og bolle 

Fra Thomas Sondergard (11 ar!H), 
har vi modtaget denne flotte ver- 
sion af et kendt spil. 

Du spiller altid »kryds«, og 
computeren »bo!le«, men ellers 
kraever spillet ikke yderligere for- 
klaringer. 




Annuitetslan 

I en tid hvor renten falder, er der 
sikkert mange, der prover at een- 
dre rinancieringen af deres for- 
pligtelser eller optage nye Ian. 

Det er altid rart pa forhand at 
kunae beregne hvilke skonomi- 
ske konsekvenser, man pataenker 
at foretage. 

Fra Niels Aage Jensen I Aarhus 
har vi modtaget dette program, 
der ganske nejagtigt kan fortselle 
noget om ydelser, renter og af- 
drag. 

Det er et stort program at kom- 
me igenne, men det er nok uma- 
gen vaerd, da det er et program, 
der kan bruges i mange situatio- 
ns!" I mange ar f rem over. 

Om programmet skriver Niels 
Aage Jensen I svrigt, at program- 
met i store traek er selvforklaren- 
de, men der skal alligevel knyttes 
nogle enkette kommentarer til 
det: 

1. Alle laneeksempler kan gem- 
mes pa band eller disk. 

2. Nar man henter ny datafife 
ind, bliver alt det gamle slettet 
med undtagelse af evt. renter i 
hukommelsen. 

3. Hukommelse nulstilles med 
pllen i overste venstre hjorne. 

4. Nar et skaermbillede er fyldt, 
kan man altid komme retur med 
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KATALOG -MAN I PULflT I ON 

INDSENDT AF: 
HENRIK LARSEN 
P.FREUCHENSUEJ 10 
9900 FREDER IKSHAUN 



Til Commodore 64 

100 REM xxxxxx xxxxxxxxxxxxxxxxxx 
110 REP1 * * 
120 REM X KATALOG MANIPULATION * 

130 REI1 * % 

110 REM * HENRIK H. LARSEN X 
150 REM * P.FREUCHENSUEJ 10 * 
160 REH * 9900 FREDERIKSHAUN * 
170 REH * * 
1B0 REM x NO COPYRIGHT x 

165 REM x x 
130 REM xxxxxxxxxxxxvxxxxxxxxxxx 
200 GOTO 130 

210 INPUT" l ,F1 .F*,F2,F3: IF Fl =0 THEN RE 
TURN 

250 PRINT T CYN3t CN3 "Fl ,' F4 , F2: F3 I BLKJ' ? 
: END 

260 REM 

270 IF NOtEN>=C THEN RETURN 

260 SYS 53956,0,2 ,2,23, 18:N0=N0+1 

230 POKE 21 1,23: POKE 21 1.2: SYS 58732: PRI 

NT NFHCZUtNOtEN-1 33; : RETURN 

300 REM 

310 IF NO=0 THEN RETURN 

320 SYS 53B56.1.2,2.23.18:NO=NO-l 

330 POKE 211.2:P0KE 21l.2:SYS 58732;PRIN 

T NA-4C2UCNO-H 3 3: RETURN 

310 REM — 

350 PRINT T CLR3 1 6LK3E REU3 'TAB (9 3 KATALO 
G MflNlPULAT I0NC0FF3 " 

360 PRINT TABC9 3 ' ■ " 

370 PRINT rCYN3CCN3C1SPC3ENDS[T DIN DI5 
K OG TRYK EN TAST" 
390 GET Ti: IF Ti = " THEN 390 
390 PRINT EHOM3C3CN3C33SPC3 -"RETURN 
130 POKE 53290.0: POKE 5328 I . I l ! GOSUB 358 
110 OPEN 1.8.15. I*':OIM AN* C 115 3 ,NPi CH5 
1.RE*C1153.ZUU163.SN(193 
150 FOR I=t TO 18 : READ SNCI3:NEXT 
160 FDR 1=52992 TO 53212:READ S:POKE I .S 
: NEXT 

170 GOSUB 210:OPEN 2,0.2, '« : GOSUB 210 
180 S = l lC = t :Nl-=CHR*C03:NNi=N4i-Nt+Ni+N*tN 
*+NttN*-fNi-fNi»-Ni 

190 NUt=NN* + NN*+NN*: RE*(0 3=NN*+Ni 

500 ANit03=CHRlCl283+CHR*ClB3+-CHR*(l 3:NF» 

*C03= " 

510 PRINT" l.'Ul 2 0 19"S:PRINT "[ HOM3C L 
TRED3 "S "fCU) " 

550 GET" 2 ,T*: GET" 2 .Si: S=pSCCS4+N* 3 
560 FOR PP-0 TO 7: PRINT* l . 'B-P 2 J0P*32 
+2 

570 SYS 52332.2,3,X*;AN*CC3=X*;IF LEfTH 
Xi,l3=N4 THEN NEXT: GOTO 600 
580 SYS 52392,2,l6,X*:Nfl*(C3=X*:SYS 5233 
2.2. II ,Xi:RE*CC3=Xi 

530 ZUtC3=C;PRINT T H0M3C 1CH3 "C" 7 CU3 "tC 
-Ctl :NEXT 

600 IF TtO THEN 510 

610 CLOSE 2:P0KE 650- . 128: PRINT THOM3C2C 
N][ BLK3 >£ CYN31 COl : : CP=2:NO=0; NU=0i EN=C: 
tF EN>23 THEN EN=23 

820 PRINT CHR*[13 3TABC2 3Nfl*[NU'H Jj:NU=NU 

*1MF NU<EN-1 THEN 620 

700 GET TA4: IF Tfli- THEN 700 

710 IF TA*= TF33' AND CP>2 THEN CP=CP-l: 

SYS 53056.0.2.0.23.0 



720 IF TAi= T F3] AND CP=2 THEN GOSUB 31 
0 

730 IF TAi * T F53 " AND CP<EN AND NO+CP<C 

THEN CP=CPtl:SYS 53056.1.2,0.23.0 

710 IF TA*= 7 F5] " AND CP>=23 THEN GOSUB 

270 

750 IF TA4= TF13 THEN B10 
760 IF Tflt = TF2]" AND C<I15 THEN F*1*C*C 
♦1: PRINT f LTRED3I HOF13C 1CHJ C-t TCU] C CY 
N] I IF EN>23 THEN EN = 23 

770 IF TAt= TF23 AND F = l THEN F=0:TE=0: 

TEi=NAU0 3: GOTO 810 

780 IF TA*= 7F9J THEN 1030 

790 IF TAi= TF6] THEN 1090 

800 GOTO 700 

810 TE=2UCN0+CP-I ):TEi=NAiCTE) 

820 SYS 53056,8, CP, 2 ,23.19: IF C>23 THEN 

EN=EN+l!GOSUB 290:EN=EN-1 

830 FOR l=NO+CP-2 TO C-l : ZUC 1+ 13=ZUt Jt2 J 

'NEXT 

810 POKE 211. CP: POKE 21 1, 19: SYS 58732 

850 PRINT 7 2C/T3 TE* 

860 GET TA*: IF TA*= " THEN 860 

870 IF TAi= CF33 AND CP>2 THEN CP=CP-lc 

SYS 53056. a. 2. 19.21 .37:SYS 53056.0.2,0,2 

3 .0 

880 IF TA*=~CF33 AND CP=2 THEN GOSUB 3| 
0 

890 IF TA4= T F5J AND CP<£N THEN CP=CPtl 
:SYS 53056. I .2 .19 .21 .37: SYS 53056.1,2,0, 
23,0 

900 IF TAt = 'T F53 AND CP=23 THEN GOSUB 2 
70 

910 IF TAi= 7 F 1 3 THEN 350 

920 IF TA*= 7 F13 THEN TEt= 7 1 6CH3 '• C=C- 

HEN=t: IF EN>23 THEN EN=23 

930 IF TA*= 7F13" THEN PRINT T HOpJt LTRE 

0 JC1CH3 C-l r CU3 t CYN3 : GOTO 970 

910 GOTO 860 

950 SYS 53056. I .CP, 2 ,23.18 

360 FOR I =C-1 TO NOtCP-1 STEP- 1 1 ZUC 1+1 3 = 

ZUCI 3: NEXT: ZUCNO+CP-1 3=TE 

970 POKE 211. CP: POKE 21 1. 2: SYS 58732 

980 PRINT TE* 7 20SPC3" 

990 GOTO 700 

1030 OPEN 2,9.2."" :T=1B:F0R 1=0 TO INTC 

tC-2 3/93:IF 8*I+9>=C-1 THEN T = 0 

1B10 PRINT" l , 'B-P 2 0 :PRINT« 2.CHR4CTJ 

CHRi(SNCIt23) 

1050 FOR BP=0 TO 7:PRINT« 1 . B-P 2 ": BP*3 
2+2 

1060 IF BP+8*I-H>=C THEN PRINT" 2.NU*;tN 
EXT: GOTO 1080 

1070 PRINT* 2.ANiCZUCBP+8xI + 13.)NAiCZUCBP 
+8*1 -H 3 3REMZUtBP*8*I*l 3 3; : NEXT 
1080 PRINT-1, U2 2 0 18 SNC It! 3: PRINT 'T 
LTRED][ HOM J TABC 36 3SNC 1 + 13 C CU 3 CCYNJ'G 
OSUB 210: NEXT 

1090 CLOSE 2: GOSUB 350: GOTO 170 

U30 DATA 1,1.7,10.13,16,2,5,9,11,11,17, 

3,6.3.12,15,19 

1170 DA FA 32.253,171,32.159.183,32,30.22 
5 . 32 . 253 , 171 ,32 . 1 58 , 193 , 138 ,72 ,32 , 253 
1190 DATA 171.32,133,176,133,73.132,71.3 
2 . 163 . 1B2 . 1 01 .32. 1 17 . 180, 190,2, 195 
1130 DATA 37,0.115,73,136,16.218.208,32, 
IS. 225. 115.99. 200 . I9S .97 .209 .216 . 32 
1200 DATA 201.255.96.0,0.0,0.0 
1210 DATA 32,215.207.139.72,32.215.207.2 
21 .0 .176.3.76 

1250 DATA 72.179.221.21.176.219.131,251. 
32.215.207.221 .0.111 .210.221.39.176 
1260 DATA 236. 131 .253,32.215.707.221 .25, 
176.227.131 ,252.232. 138.56.229,251 
1278 DATA 111.218,218.216,133.250,32.215 
. 207 . 221 ,10 . 1 76 .287 , 229 .253 . 1 1 1 . 203 
1280 DATA 131.251.101,170.165,172.72,185 
- 173.72.165.171.72.165.175.72,221.0 
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1230 OflTfl 209,22.166.251 ,199. 250. 240,44, 
32 . 240 . 233 . 232 . 1 99 . 240 . 236 . 1 33 , 1 72 
1300 DflTP 191,212,32.219.207.48,236.202, 
210 .3,76 .72 , 178 , 166 , 252 . 1 98 . 250 . 240 
1310 DflTft 16.32.240.233,202.199.240.236. 
133,172.191 .217,32.219.207.48.236.164 
1320 DATA 254.32.240,233.32.36.234.169,3 
2 .145.209 .136.196.253, 16 .249.76 ,88 
1330 DATA 233,41.3.13.136,2.133,173,32.2 
24.233.164 .254 .177. 172.145.203.177 
1340 DATA 17^,145.243. 136. 196.253,16,243 
.96 .32 .253. 174 .76. I 58. 183 



KONTRDLSUpl FOR KPTALOGHANIPULflT ION 
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153 


UB 


195 


1ZB 


247 


130 


199 


140 


255 


150 


42 


160 


65 


170 


135 


180 


185 


195 


135 


190 


159 


209 


64 


240 


IB 


250 


234 


zm 


34 


27« 


160 


280 


0 


290 


115 


300 


31 


310 


159 


320 


2 


330 


199 


340 


34 


350 


193 


360 


134 


370 


127 


380 


14 



*3qn 
J3H 


£ JD 




££ 


440 


9 


SDo 


~1 <« ~1 

Z42 


160 


52 


470 


64 




Q P 

ou 


tan 


1 7 


500 


235 




1 45 


550 


1 50 


560 


142 




1 OD 


JOYi 


ac 


598 


67 


600 


75 


610 


244 


620 


30 


S<Oa 


1 40 


nn 
'1M 


222 


720 


110 


730 


1 


740 


88 


750 


95 




"5 \ 

£4 1 


770 


27 


700 


145 




1 50 


800 


64 


918 


71 




1 Do 


S30 


71 


840 


41 


ocra 
ODD 


fx 


860 


147 


870 


81 


□ art 




0 JO 


1 8Z 


308 


167 


0 1 n 




320 


1 25 


930 


39 


DtB 










74 


970 


21 1 


990 


58 


390 


64 




Zee 


1049 


165 


1050 


142 


t060 


252 


1070 


237 


1080 


5 


■ nan 
L03B 


Z 33 


1 130 


243 


1 170 


148 




f cn 
' Jfl 


1 1 98 


63 


1 208 


104 


L240 


240 


1250 


53 
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5 


1270 


36 


1200 


57 


1290 


251 


1300 


60 
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145 
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21 


1330 


249 
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95 








ZOflBIES 

INDSENDT AF 
J8RGEN NlLSEN 
QflLflNUEIEN 7 
8200 FflUSKE. NORGE 



Til Commodore 64 



10 PRINT"rCLR3"iFOKE56.56:CLR 

20 D4 = -rHDplJ[ 22CN] 

30 K=53280:POKEK .0:POKEKtl .0 

40 SU=18:SL=25:9S=1024:DlnZxC49.4J.F^f 11 

3 

50 FORI=lTO9:RE6DD0x(I ).Pix(I 3: NEXT: FORI 
=0TO49!READfl:PDKE704+I ,fl: NEXT 
60 5YS704: P0KE53272 .31: FORI =0TD39i REflDFW 
P0KE14552*! .A: NEXT 

70 FOR3=0TO87:READft:PDKEl5643*I NEXT 
75 FORI =0TO1 1 : READF^f I ): NEXT : 0=54272: FOR 
I=lT08iREFtDJxf I 3:NE*T 

00 Xi = -rSx-][ 375PC]C5/-3 

90 Yi = "r Sx-K 2SPCHREU3«4*r 0FF3C 2SPCKRE 
U]»4xf OFF3t25PC3t REUJ«*s«COFFjr2£PC3CREUJ 
OFF 3t 2SPC Jt REU1 atxr OFF K 2SPC ][ REUiJwi 
*raFF3C2SPC3tREU3"4*rOFF3C 2SPC3C %/- 3 
180 GO«5U04500:PRINTCHR*C14) 
120 PRINTS 12SPC3AU C SxJ URGEN [S/NllLSE 
N 

140 PRlNTTLTREDU 2CN][5SPC][ S/0JU BEF IN 
NER PEG P3 EN KIRKEG1RP. 

150 PR3NT"rSyK3LOKKEN HflR OKKURfU FflSSER 
T niPNflTT . tS/fl)U 

160 PR3NT"M3 UNNG1 f^LLE C REU] C CYN3C %/Z 21 
S/0][SyH3t S/BUS/I 3t S/E3CS/S]tLTRED)[OFF 

1 I LENGST riULIG 

170 PRI NT ~T I p UED 1 LURE DEfl NED I pE 3P 
NE GRflUENECtREU3[LTGRN3«*xrLTRED3fOFF3 3. 
rS/flJEN 8LIR DU ": 
180 PRINT Tf»TT , OriUflNDLES DUt 3SPCJ0GS3 T 
IU EN CS/-Z3CS/OJ[S/n][S/31[S/nC S/E] . . . , 



190 PRINT T4CN3C YEL3C4SPC3CS/TJRYKK ( REU 
U2SPC][S/S][S/P3[S/flJCSxC3tS/E]C3SFC1[0 
FF3 FOR 3 FORTSETTE 

200 5=54272: FORT =0TO23: POKES+T ,0: NEXT: PO 
KESt24 .9: POKES+1 .180 

210 POKES+15 .30:POKES+12.69:POKESt8.30 
270 GETfii:lFfl»<> THEN270 
300 POKE53272.21 

385 GO5UB4500: PRlNTSPCf 12 J [ EYN3I CN1UFLG 

ALTERNflTIU: 
310 JOM:PRINTSPCtl43 [ TN3f REU1TE OFF] . T 
ftSTER =PRINTSPCC14 3 C REO] J[ 0FF3 . JOYST I CK 

320 GE Tfli : IFF** = J THEN400 
330 IFfltO T THEN3Z0 

340 JO =0: PRlNTSPCf 1 2 3 t REU3 C LTGRN3SL I(C S 
TYRER DU: 

350 PRINTSPCU5) t CNK UHT 3UC 3SFC 3 If 3SPC ] 

0 '• PRlNTSPCf 17 ) r LTBLU 3( S/fll [S/-3 [S/N] 
I PRINTSPCC 16 3 f UHT] JC 2SPC3I LTBLU3C S/Xl[ 

2SPC3C UHT3K 

360 PR INTSPCC 17 3 TLTBLUKS/NJ [S/-3 £ S/fl 

1 :PRINTSFE[15 3 r UHT 3N[ 3SPC ]Mr 3SpC ] 

400 PRINTDi r2COKUHT3 HUOR HflNGE t REU3C 

CYNlZOplBIC^rOFFirUMT) 8NSKER DU? CZ0-49J 

410 GETfl*:fl=UflLCA»3: TFA<2ORfl>4THEN'H0 

*2B PRINTDi fREU3lCYN3 SPCtl93A*; 

430 GETA*:T=UflLCf)t): IFtf*< 0 ORflt> 9 THEN 
430 

440 PRlNTm;2;fixi0 + T:2Z=Z:FORI =8T0555; NE 
XT 

1000 POKE53272.31 

1050 PRINT rCLR] M :GOSUB2800:GOSUB3000:OG 

50 

1080 PRINT rHOf13C12CN3 SPCC7 V'rt«SKER OU 

ET WTT SPILL ? 

1090 GETfl*:IFflt= I 'THEN30B 

1100 1FP*<> H THEN 1090 

1110 SYS64730 

Z000 PRIMT f HOnjCC/fm37S./*3t C/S] 

2030 PRINTXi: FORI = 1 T07 : PR3NTX*: PRINTY* I P 

RINTX* :NEXT:PRJNTX1 

2040 PRINT TLVZ3C37S/* It CVX3[H0P13 

2045 00-20:01 =13: O-SS+O0+SU*Ol : D-0: J=1!Z 

=ZZ : NS = 1 : NT = 1 : 0G=0G+ 1 : IF0G>5THEN0G= 1 

205B PDKEOtQ . I : POKED . 1 68 ; FOR I =1TDZ: I'M I , 

23 = 32 
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20G0 PUJHTI (SU-31atRNDCl ) 3+ 1 : P2 = INTC C SL- 

2>*RNPC1 3 3+l:F-FlfP2*40TSS 

2B?0 IFPEEKCP3O32THEN2860 

2080 Z'M I .0 3-Pt:Zxf I . 1 )=P2;Z^CI .3 3=F*(RN 

0( l)*l 2 3 : POKEP+Q . Z* f I . 3 ) 

2090 PPKEP. 1 68-t-OG: NEXT: RETURN 

3800 T I * = 000000 

3010 GETfli:fl=(l27-PEEKE56320))ANPl5: IF CP 
* = flNPJOT0)ORCfl=0flNDJO=t 3THEN3070 

3012 IFJOTHEN302B 

3011 F0RU=1T08: IFfl*=HID*C ' NP1. JKUIO' J 
THFN3040 

3016 NEXT! GOTO3B70 

3020 FORUrlTOB: IFO=J*rU 3THEH3040 
3022 NEXT: GOTO3070 

3010 D0=D0*tU l: Ol =D1*CU3:O=P0+D1*SW 
3070 IFFEEKCO+D 3 -3ZTHENFOKED .32: O^OtD: FO 
KEOtQ , I : POKED, 168: 00 =00+ P0: 01 =01tpi 
308B IFFEEK EO+D ) - i 68+-0GT HENFOKEO , 32 : 0=0t 
D: GOTO37B0 

3085 F0RI=1T0NT= J=INT(RNDU 3*Z 3+lrflrZaCJ 
.0): I=Z*(J . 1 ) 

3030 U=£S+fl+I *SU: X=A-SGNCA-O0 ); Y=I -SGNC I 
-01 ) 

3t00 F=SStXtY^SU:T=PEEKtPl: IFT =168tOGTHE 
N3160 

3120 POKEU.Zxf J ,2 V- POKEUtQ , Z* f J ,4 3 

3122 Zx( J .0 ]=X; Zxf J . I )=Y: Z>( J .2 )=T: ZXf J , 

1 ]=PEEKCP+Q ) 

3130 IFTM68THEN3700 

3110 fl=P: IFT=l63ORT=164QRT=165THEN3500 
3150 PO|CEP+Q.Z^( J .3 3rPOKEP. 16BtOG 
3160 NEXT: GOTO3010 

3500 T=PEEKCPi: IFT=1630RT=1640RT=165THEN 
P=P-l:GOTD3500 

3510 IFPEEKCP+2^l66THENP=A:Z*(J.2)=PEEK 
fP):GOTO3150 

3515 POKES-t-4.0:POKES+5.9:POKES+l ,99-2tp0 
KES+4.1? 

3520 P0(CEFt2.l66:P0KEPt3,l67:Z^fJ ,0)=ZXC 
Z ,03:Z^CJ .1 )=ZxfZ ,1 ) 

3530 Z*CJ ,Z3=Z*CZ .2):ZXCJ .3)=Z^fZ .3)lZ*C 
J ,4J=Z*CZ r 4 3 

3510 POKES+11 ,0:POKES+11 ,129 
3550 Z=Z-l: IFZ>0THEN3565 

3555 NS=NSi-l:NT=NS:Z=Z-rINTCRNPd )*5 3i IFZ 

>43TH£NZ=:43 

3560 GDSUB2B88 

3555 IFZ<NTTHENNT *Z 

3570 GOTO3010 

3700 REP 

3730 POKE198.0 

4000 T=INTCTIr6)/!0;PRINT r CLR J[ 3CNJ [ UHT 
1lS/tJ]U OUERLEUPE I T ' SEKUNPER . 
4010 IFKHSTHEN4040 

1020 PRINT rCN][S/OlU ER DEN PERSPNEN SO 
rl HflR LEUD LENGST. ! IFH£=BTHENH£=T: G0T04 
050 

4040 PRINT TCNJCS/PIEN BESTE TIDEN ER F* 
EI1PELES :PRINTHS SEKUNPER. 
405B RETURN 

4500 FRINTCHR4(8D r CLR] SPCC9 3 T GRN3 E CN J 
T REJK2C/I HOFFH C/K3E RE!U}E C/0 If CVI j"| OFF 
llC/fll REU][C^CJ[0FFKC/1D)tC/K]tREU]CC/F 
UC/IK Of F Ut/rn C/CHREUHCsOHCHU C/0) 
[ C/\ 3COFF3tC/U][REUJ[ C/BJl Cyn[0FF3( C/F3 
4510 PR INTSpCC 10 3 C CYN J [ REUTt C/BJE OFF J t 
C/KJ C4C/K]CREUJEC/K][OFFJCC/I][CAI3 C Cy 
K3 [REU-HC/CKOFFHC/IJ [C/B][C/I3 
4520 PRINTSFCC3)" t PUR JC REO ][ C/BK OFF 3t 2S 
PC][ C/K ] [ 2C/K1 CC/K3CREU3ir/KKOFFJ EC/ 
K3 CC/K3 EC/K3C2SPC3CC^F3 EC/KJ 
4530 PRINTSPCC9 3 T LTBLU][REU]f 2C/I3(OFF3 
TC^JEC/CJEREU3[C/nt0FF3 t EVUj [CAUERE 
U3E2C/ntOFF3 t C/-C3E REU][ CxHC CH3E 2C/1 3C 
0FF3E CAJ][ C/C3C REU3I C/I J : RETURN 
5000 DflTP-l ,1. ,1.1,1 ,-1 ..1.. -1,-1,, -1.1 . 



5999 REH * DAT* FOR EGENDEF INERTE TEGN * 
6B00 PPTP169. .141 .14 .220. 133.251 . 133 .253 

.169.51 ,133.1 . 169 .56.133,252,169,216 
6010 PATP133.254 . 160 . . 162.61 .177.253 .145 

.251 .200,208,249.230.254.230,252,228,252 
6020 PATR208 .241 . 169 , 55 . 133 . 1 . 169 .1 .111 . 

700B DflTA. . 127 ,8.126.72.127 . . , .6Z .78,90. 

1 11 .124. .24 . .60.6.62.102.62. 

7010 DPTP62 .120 .216.252.216 .216.222. 62 

102.110.126.118,102.124. 

7028 DPTP24 .21 .126.126,24.24.2 4.24.255.1 
92.132,192. 192.192.192.255 

7030 PATP255.3 , 3 , 3 , 3 . 3 , 3 . 255 . 255 . 132,223 
.223.223,223.192.255 

7040 P0TP255.3 ,251 .251 .251 .251 .3.255 .60. 
60.24.255.24.60.102.102 

7050 DPTP60 .2S5.153.255.102 .182,102,135 

7060 DflTfll0Z.6B.Z55.153.255.lB2.lB2.195 

102 , 102 ,60 . 255 . 1 53 .255 . 102 . 195 

7070 DPTA195. 102, 102.60.255 .153,255,102. 

126 ,213 . 219 . 126 ,24 .68 . 102 . 1 02 

8000 Dflrp3.4.5.7.? ( 8.18.13.13. 11, 14.15 

9000 DPTP6 .2,10.4.8.5.1.9 

10125 IFTM69+OGTHENZXU .23-32 

60000 POKES 1 4 .0:P0KESi-4 .21 : FORT =180TO30S 

TEP-3! POKES -H . T i NEXT 



KONTROLSUfl FOR ZOflBIF 
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20 


197 
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40 


l l 78 


50 


26 


6B 


131 


70 


174 


75 


190 


60 


170 


90 


123 


100 


166 


120 


»73 


140 


3 


150 


82 


160 


222 


170 


180 


180 


48 


130 


230 


200 


116 


210 


234 


270 


56 


300 


41 


305 


175 


310 


197 


320 


171 


330 


40 


340 


124 


350 


25 


368 


28 


400 


234 


410 


171 


420 


207 


430 


147 


440 


111 


1000 


4/2 


1B50 


53 


1080 


170 


1030 


170 


1100 


87 


1110 


170 


2000 


236 


2030 


208 


2040 


248 


2015 


127 


2050 


214 


2060 


36 


2070 


38 


2BB0 


184 


2090 


1 18 


3000 


181 


3010 


76 


3B12 


141 


3B14 


103 


3016 


15 


3820 


210 


3022 


15 


3040 


33 


3070 


Z54 


3090 


143 


3085 


156 


3B30 


52 


3180 


1 93 


3120 


03 


3122 


184 


3130 


161 


314B 


186 


3150 


173 


3160 


9 


3500 


2B9 


3510 


96 


3515 


196 


3520 


38 


3530 


1 44 


3540 


74 


3550 


188 


3555 


201 


356B 


79 


3565 


143 


3570 


77 


3700 


143 


3730 


149 


4000 


2B7 


4B10 


156 


4020 


197 


4040 


249 


4B50 


142 


4500 


192 


4510 


91 


4520 


10 


4530 


68 


5000 


113 


5993 


135 


6BB0 


IBS 


6010 


48 


6B20 


57 


7B00 


183 


7010 


246 


7020 


141 


7030 


77 


7040 


213 


7050 


70 


7060 


53 


7070 


2 


€000 


2 


9B00 


139 


10125 


166 


60000 


216 
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AMNUITETSLfW 

indsendt er 

NIELS ftf\GE JENSEN 
HOLHSTRUPHB-IVEJ 47 
8210 AARHUS U. 



Til Commodore 64 



100 RZtfxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxvx 
110 REflx ANNUITETSLAAN > 
1 20 REMx LAAN PIED FASTE AFDRflG * 
130 REflx INDLfiflN HEP FAST I NDSKUD x 

150 RED* NIELS flflGE JENSEN AflRHUS 1384 X 
160 RE(i*x»>**"^XXJt3C**x>:)tx^jt»*>3(>[3tjt^*^?;^^ 
170 REP 
180 REn 

130 REnxx*UAR I A9 . GRUNDF . xxx 

200 PRINT* f CLR3" 

210 fl=6:B=6:fi*= [UHT]" 

220 P0KE5328B.A: P0KE53281 .0 

23B REflxxsHDUEDREGISTERxx* 

240 PRINT' TCLR] :A* 

250 OUER*= ■TS/*H39C/T3CCVxj 

260 nEL* = " ECOUC/G3E3BSPC3EC-H3" 

270 UNDERi= TCOJCREUJC LVX3COFF3C 39C/*3£R 

FU3E S/X3E OFF 3 

280 STREG*= rcau4as/*r 

290 PR IK* ? TCOH L5CV+3t 10SPC3E 15C+3' 1 
300 TERMING rCOHERMIK5SPC3RENTE[6SPCJ 
AFDRAGt 7SPCJSP.LD0 

310 PUNKT*= ========== = = = = = = = = = = = = = = = = as 

320 GEnptES*= r CLRJt 10CNJCREO) DATA GEfHIE 

S PAA BAAND ElLER DISK J/1N ? E0>"F3 " 

330 TAST*='E CLR3E 10CN3C REUJ BAAND TpST B 

xx**?xxx DISKETTE TfiST D E OFF 3 " 
340 OIDEREt = [ 2CN3C REU 3t 2SPCJTAST EN TPS 
TEE2SPC]**XX*[2SPC3RETUR TAST TC4SpCJ~ 
350 PR INTOUER* : PRI NTHEL* 

360 PRINT T CO )[ C/GJC6SPCJH OHDREG 
I S T E Rt 7SPCK C/T13 " : PRINTHELii PRINTUN 
DE.R* 

370 PRINT r 55PC3 E 2CN3E REU J F i C OFF 3E2SP 
CJflNMUITETSLpflN " 

380 PRINT T5SPC3ECN3EREU3 F 2 COFF3C2SPC 
iLflftN PED FAST AFDRflG 

390 PR INT~T 5SPCH CN3CRCUJ F 3 EOFF3E2SPC 

1INDUWN HED FAST I NDSKUD" 

400 PRINT" r5SPC][CN3t REU3C5SPC3C OFF JC25S 

pcr 

410 PRINT f 5SPC3CCN3EREUJ F 7 CQFF3C2SPC 
IBflGFflRUE' 

420 PRINT' T 5SPC3 C CNJC RE03 F 9 EQFF3E2SPC 
IK fl N T F A R U E" 

43B PR I NT "f 5SPCJC CNKREUJC 2SPC 3 *t 2SPC3C 0 
FF3C2SPC3S L E TE3SPC3P R 0 G R fl PI" 
4<ia REUxxxBETJENING AF REGISTER*" 
450 GETXi 

460 IFX* = "f Fl 3 THEN600 
470 IF-X* = T F2] THEN1300 
480 IFX4- TF31" THEN3S30 
430 IFX* = * THEN4670 
500 IFX* = TF7V THENGOSUB530 
510 tFX*=TF8] THENGOSUB570 
520 GOTO450 

530 REI1m*BEREG. AF BAG OG KflNTFARUE** 
540 8=B+1: IFB=16THENB=0 
550 P0KE5328I .B 
560 RETURN 

570 fl=fl+lt !Fn=16THENP=0 
580 POKE53280.fi 
590 RETURN 



600 REI1x-«xflNNUITrTSLftflNx» 

610 B*=S* 

620 n=0:N-0 

630 PRINT rCLRJ IA* 

640 PRlNTDUER*r PRINTnEL* 

650 PRINT r C03C C/GK 6SFC3A N N U I T E T 

S L fi A N[?SPC3EC/I13 
660 PRINTHEL*: PRINTUNDER* 

670 PRINT E2CNJCREU3 F 1 C 0FF3C 4SPCJ2E 3S 

PCjr P F L S r RL3SPC3P R.E2SPC3A A R" 

600 PRINT TREUI F 3 [ OFF J[ 4SPC J4t 3SPC 3 Y 

D E L S E RC3SPC3P R.r?SPC3fl A R 

690 PRINT fREU] F 5 E 0FF3E 2SPC3 1 2C3SPC3 

v D E L S E RE3SPC3P R.T2SPC3A fl R" 

700 PRINT rREU3E5SPCjl0FFJE35SPC3" 

710 PRINT T REU3 F 2 EOFF3C2SPCJx XE3SPC3 

S L E TE3SPCJI N P U T' 

720 PRINT rCNJEREU] F 4 C 0FF3E ZSPC 3* *E3 

SPC3H E N T EC3SPC3D f=» T A" 

730 PRINT TCNJEREU3 F 7 C OFF3C2SPC3* *E3 

SPC3H OUEDREGI S T E R" 

740 GETX» 

750 IFXi = ' EFU "THENJ=2:K«^2:Li2:GOTO820 
760 IFX* = f F3r"THFNJ=4:Kx^4:L=4:GOTD820 
770 IFX*= rFSI' THENJ -12:Km = 12:l = 12: G0T08 
20 

788 IFXt- T F71 "THE N23B 
790 IFXt="rF21"THrNGOTO5720 
800 IFXi^ TF43 THFNGOTO5520 
810 GOT 0.740 

820 REH nNNUirrTSLAAN X YDELSER PR flfiR 
830 X=0 

840 PRINT ECLR3 '• PRINTSTREG* 

SS0 PRINTTC03E6S/'Q3 flNNUI TETSL 

ft A N E 7S/13] ' ! FRI NTSTREG* 
860 PRINT rCOJE 2S/03E2SPCJ :l; V D E L 
S E RC3SPC3P R.t3SPC3fl RE 2SPC 3E 2S/Q 3 ' ' 
PR I NTSTREG* 
870 PRINTTC03" 
880 GOSUB508 
890 G0TD111B 
900 PRINTTFlB(301;Bi 

518 PRINT T CO 3 [ 2CH ] ; s INPUT INDTPST NpUN 

Pflfl Lfl(=*N[5SPC3 :B* 
920 PRINT:SS=B* 
930 PRINTTABE23 3; C 

340 PRINT TC0JE2CH) i : INPUT INDTRST STAR 
T flfiRSTflLt 5SPC3 ':C 
350 PRINT 

960 PRINTTflBt 23 1; 0 
970 IFJ-4THEN1000 
980 IFJ--12THEN101B 

990 PRINT rCOU 2CH3 INPUT INDTflST STflR 

T TERNIN 1/2E2SPC3 :D:GOTO1028 

1000 PRINT T COH 2CH3 INPUT INDTA5T STfl 

RT TERHIN 1/4C2SPC3 :D:GQTOi020 

1010 PRINT T COU2CH3*:: INPUT' INDTRST STp 

RT TERHIN 1x12 ID 

1020 PRINT 

1030 PRINTTF1BC23 ); E 

1040 PRINT TC03C2CH3 INPUT' INDTAST STfl 

RTSflLDOC 8SPC1 :E:E1=E 

1838 PHINT 

1068 PRINTTAB(29 3: F 

1670 PRINT r C01I 2CH3 : : INPUT 1 iNPTflST HEL 

flARLIG RENTEE3SPC3 ":F 

1080 PRINT 

1030 PRINTTF»BC29 3;G 

1100 PRINT T COH 2CH3 :: INPUT INDTflST YDE 
LSE PR. TERHIN ^ G : RETURN 
11 10 PRINTUIDERC* 
1120 GETX* 

1130 1FX*= 'f "THEN680 
1110 1FX»= THEN1120 
1150 PRINTGEP1I1ES* 
1160 GETX* 

1170 IFX*= J THEN 1 210 
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1180 IFX4 = * THEN6B0 

1130 IFX1- N THEN1270 

1200 GDTO1160 

1210 PRINTTflSTt 

1220 GETX4 

1230 IFX*; h BThen538B 

1210 IFX4=*"O"THEN1860 

1250 lFX-i = " + M THENB08 

1260 GOTO1220 

12?0 PRINTT CLR] ": 61 

1280 PR] NTT MOM]": : PRINTTftB< 18 3; "STARTS* 
lDO " : 

1230 PR1 NTTrtB f 10 -LENt STR4( E 1 ) 3 3j El I T CUJ 

1300 PRINTT MOM3L CNJ " : PRINTS! REG*: PRINTP 
RIKi 

1310 PRJNT rH0MU2CNKl7CH]":C:PRlNTSTRE 

G4-: PR INT TERM IN*: PRINTSTREG4 

1320 IFJ -1flNOX=5THEND-0 

1330 IFJ -12flNDX=13THEND=B 

1310 IFD > l TMFNGDTQ 1 730 

I 350 0=0 

1360 IFX=7THEN1180 

1370 FORX^ITOJ 

1380 IFX=7flNDO^7THEN11B0 

1330 IFX=7rilFNGOTO1710 

1100 Y=3:PRJNT r2C0J 

1110 Q -X : G0SUB579B; PRINT T PJ} . " J 

1120 Q = ( IHTf f rCCE^10B)»F J/K* Jt .805 3*180 ) 

V100: Y= 16 

1130 P-( LNTCf rC£/I0ei*G3f .B83Jj<10a)3/lB0 
1110 Q-Q-fP 
1150 GOSUB5850 
1160 H=0 

1170 fl-rHMJ 1Ff<rG-HTMrND=E:GOTOH90 
1180 0 = ( INT f f rG-H)+.B05];*lB0] V10B 
i*30 I=O:Yx28:GOSUB5850 
1500 N=N-rI: IFF -ITHENO=0: G0TO152B 
I5L0 Q=[ INTUCF-I 3+. BBS 3*10833X100 
1520 C-Q; Y=10:GOSUB5B58: IFE-8THENX=J 
1530 PRINT: IF J =l 2THENG0TO1 550 
1510 PRINT 

I550 NEXTX:PRINTT 2C0]" : PRINTSTREG4 
1560 Y = 16:0-=tINTCCM+.8B5 3xlB0)3/100 
1570 PRINT TOTAL"; : G0SUB58SB 
1580 0 = ( INT f f N f .BBS 3*188 3 3/-100: Y=28 
1590 GOSU05850 

1600 Y=1B: Q-E: GOSUB5850: PRINTPUNKT* 
1610 PRINTT CQ1C10SPC3" 

1S20 PRINTT 2C01RF.NTER I flEMORY TFIST t/- 
r ZSPC3KR i :Y=10:Q = ( I NTCCI11*. 005 3*100 3 3/ 
IBB: G0SUB5858 

1630 GETX4: IFX4 t ■ -THENl 630 

1610 IFXt=--r- THENa=0: P-0 : 0=0: GOT 0600 

1650 1FX4=" T* 1EN4710 

1660 IFXi=-*'THEN1730 

1670 lFXi=-*--THEN1800 

I680 n=0:N=0:C=CU 

1630 IFE=0THENO=0: P=0: 0=0: GOT06BB 

1700 GQT01278 

1710 GETX»:IFX*= THEN171B 
i7Z0 D=0;GOTOl270 
1730 IFJ =2ANDD=2THENF0RX=2TOJ 
1710 IFJ=2ANDD=2THENU=0:GOTOI3B0 
1 750 I F J =1ANDD -2TMENF0RX -2T0J : G0TQ1 388 
1 760 IFJ =mMDU -3THENF0RX =3T0J : G0TD1 390 
1778 IFJ =1flNDD=1THENFORX=lTOJ:GOTOl380 
17B0 IFJ = 12flNDD-2THENFORX = 2T0Ji GDTO1390 
1730 IFJ -I2nN0D-3rHrNFORX^3TOJ: G0T01388 
1000 IF J -12flNUU-q TMENFORX-ITOJ I GOTO1390 
181B IFJ = l ZriNDD=5THtNF0RX=5 TO J •" G0T0212B 
1B20 IF J --12(1NDD-6TMCNF0RX=6r0J: GOTO1380 
1830 IFJ " 1 ZHNDD -7TMENF0R* -7T0J : G0T01 30B 
1910 IFJ : lZnNOO=8IMrNFORXt8[OJ: GOTO13B0 
1050 IF J -J2nNUp-9rHrNF0R>-3T0J: GOTO1300 
I860' IF IM2FtHLiD-.10rMFNFORX = 10TOJ:GOTO138 
0 

1870 IFJ = lZnNuD = U THENFQRX=1 1 TO J : GOTO 138 
0 



198B IFJ =12nNDD=12rHENF0RX=lZTOJ:G0TO138 
0 

1B30 G0T082B 

1900 REn«n.nnN rtED fast ^forag**** 

1310 Dl =0: F 1 =0 
1920 04^54 
' 1930 r^B:N:B 
1910 PRINlT CLRJ": fl4: PRJ NTOUER* : PRl NTHEL 

1950 PRINT"! C03C C/GK 7SPC]LflfiNC ZSPC3J1EDC 
2SPC3FASTI ZSPCJAFDRAGC BSPC J[ C/TH " r PRI NTH 
EL 4: PRINTUNPER4 

1960 PRINT'f 2CNJCRE0J F t [ OFF JC ZSPCJREN 

TPTILSKRIONING HUER plflflNEP" 

197B PRINT"! CN][REUJ F 3 I OFF ]C ZSpC JRENT 

FTILSKRIUNING HUER KUfiRTAL" 

1 98B PR I NT" r CN 31 REU 3 C 5Sp C J [ OFF 3 1 Z7SPC J " 

I33B PRINTT CN3CREU3 F 2 [ 0FF3C ZSPC3S L 

E TC3SFC3I N P U T* 

2BBB PRINTT CNJ[ REO) F 1 [ OFF JC ZSPC3H E 
N T EC3SPC3D f\ T f* m 

2B10 PRINT"! CN3C RE03 F 7 [ OFF 3C 2SPC JH 0 
OEDRfG ISTER" 
2020 GETX4 

2B30 IFX4^"EFirTHFNJ=lZ:M M2;l=12;G0T0 
2030 

2010 IFX4^TF33*thFNFU1: J = 1Z:K/:12:L=1J 
GOTOZ030 

2050 IFX%--CF7V'TMENZ30 
2060 IFXl-TFZJ-THENDlrl :GOTO57Z0 
2070 I FX 4 - ■ I F1 3 " THEND l = l : GOTO5520 
2080 GOTO2020 

2030 REM LHHN MEO FAST AFDRflG 
2100 X-0 

211B PR I NT T CLR J " : PR I NTS TREG4 

2120 PRINTT CO H7S/Q3 LflflNt 2SPCJPEDC 2SPC 

IFflSTt 2SPC3^FDRnG [ 8S/03 " : PRINTSTREGi 

2130 PRINT T COJ[2Sx03C3SPC]RENTETlLSKRIU 

NlNGC2SPC3PR[2SPCJflflR JL; T 35PC3C 2S/<J3" 

:PRINTSTREG* 

21 10 PRINT: GOSUB9B0 

2150 PRINTUIDERE4 

21 60 GETXi 

2170 IFX*-"^"THEN13B0 
218B IFXi=* "THEN2160 
2130 PRINTGErif1ES4 
2200 GETXt 

2210 IFX4= fc J"THENDl=l:GOTO2260 

2220 IFX4^-»-"THEN1300 

2230 IFX4 -"N-flNDFl =1THEN2870 

2210 IFX4='N"THEN23Z0 

2250 GOTOZZBB 

2268 PRINTTRST4 

2270 6ETX4 

2280 IFX4^"B"TMEN5380 
2230 IFX4-."D"THEN1860 
2300 IFX4--"*"THENl900 
2310 GOTO2270 
23Z0 PR IN f T CLR 3 " J B4 : 01 ?B 

2330 PRINTT H0M3 :PRINTTflBCl9 3: "STflRTSA 
L0O " i 

2310 PRlNTTflBf40-LENCSTR*CEl 3J3JEI J T CU3 

2350 PRINTT M0M3C CNJ* * PR INTSTREG4: PRINTP 
RIK4 

2360 PRINT "rh0M3E2CN3[ 17CM3 " : C: PRI NTSTRE 
G4 : PR I NTTERM I N4 : PR I NTSTREG4 
237B IFX^l3TMEND=0 
2380 IFD>1THENGOTO2750 
2330 0^0 

2100 IF*::?rHEN2l18 

2110 F0RX = 1 10 J 

2120 IFX=7ANDD-7TNEN211B 

2130 IFX=7TMENGOT0273B 

Z11B ¥=3:PRJNT"( 2C03- 

2150 Q-X.'G05UB57gQ:PRjNT-f CUJ -i 

V100°YM6 rf(aCEy ' 1005;,[F ^ ,; '° 05 1,1001 
2170 G0SUB5858 



2180 H=Q 

2490 ri=M*H: !F£ <CG-H 3THENQ=E+H: GOTD2510 
2530 Q=G 

2510 I =Q: Y=28i GOSUB5058 

2520 N =N+ I : IFEi-H = ITHENQ=B; GOTO2510 

2530 O-ClMTf tCCE-I J+H 3 + . BB5 3* 100 3 )/i 00 

2510 E=Q: Y=10:GOSUB5858: IFE=BTHENX=J 

2550 PRINT: IFJ=12THENGDTO2570 

2560 PRINT 

25?0 NEXTX:PRINT"r2C03': PRINTSTREGi 
2580 Y = 16: Q = (INTCtri-f. 885 3*100 3 J/100 
2590 PRINT' TOTAL' I : GOSUB5850 
2600 Q = CINTCCNt.005 3xi00J 3/i00( y=28 
2610 GOSUB5850 

2620 Y=1B: Q=£: GOSUB5850: PRINTPUNKT* 
2630 PRINTT C03C 18SPC J " 

26*0 PRINTS 2CO)RENTER I HEPIORY TAST f/- 
f 2SPC3KR 'j:Y=ie:Q=CINTCCm + .0B5 3*180 3 3/ 
100[6OSUB5850 

2650 GETX*: IFXi=" "THEN2650 

26&B IFX*=' T THENO=0i P~0: Q=0: GOTQ1900 

2670 IFXi="-"THEN1750 

2680 IFX* = "+' , THEN1760 

2690 IFXi = -*-"THENl8l0 

2700 n=0:N=B:C=Ctl 

2710 IFE=8THEN0=8:P=8: 0=0: GOTO1900 

2728 GOTO2320 

273B GETX*: IFXi=""THEN273B 

2710 D:0:GOTO2320 

2750 IFJ=12ANPD=2THENFORX=2TOJ: G0TO2120 
276B I F J 5 3 2PNDD -3THENFORX=3TOJ : GOT0212B 
2770 IFJ=12ANPP=1THENFORX=1TOJ:GPTP2120 
2790 IFJ=12ANPP=5THENFORX=5TaJ:GOTO2l20 
2730 I F J = 1 2ANPP =6THENFORX =6TOJ : GDTO2120 
2800 IFJ=l2ANDP=7TH£NF0RX=?T0JiG0T02128 
28 1 0 IFJ = 1 2ANPP =8THENF0RX =8TO J : GOTO2120 
2820 IFJ=12ANDD=3THENFORX=3TOJ:GOTO2120 
2830 IFJ = 12flNDD=10THENFORX = I0TOJ : G0T0212 
G 

2810 IFJ=12ANPP= 1 1THENF0RX = 1 1 TOJ [ G0T0212 
0 

285B IFJ =12RNDD= 12TWENF0RX-12TDJ : G0T0212 
0 

2860 GDTO2B30 

2870 PRINT"[CLR3 *:B4:D1=0:Q2=8 

2880 PRINTS HOH3 " i I PRINTTAB( 1 8 3; 'STARTS* 

LPO * J 

2838 PRINTTABCIO-LENCSTRHEI J))JEll TCU] 

230B PRINT ' t H0M3C CN3 ~ ; PRINTSTREGi; PRINTP 
RlKi 

2310 PR I NT ' r H0I1 ] [ 2CIS J C 1 7CH ] " i C i P RI NTSTRE 
Gi: PRINTTERMI N*: PRINTSTREGi 
2320 IFX=13THEND-0 
2330 IFPMTHENGOTO3410 
2316 0=0 

2350 IFX=7THEN2330 

2960 F0RX=1T0J 

2370 IFX=7ANDD=7THEN299B 

2980 IFX=7THENGDTD3390 

233© Y=3:pRINTT 2C0]~ 

3000 Q=XiG0SUB5798:PRlNT*CCU3 . * ; 

3018 01 =C INTC C C C tE/100 3*F 3/K* 1+ .005 3*100 

)3/iB0:Y=i6:Q2=Q2tQl 

3020 IFX=3THENQ=Q2:GOTD3080 

3030 IFX=6ThEnQ=Q2:6OTO3090 

3010 IFX=9THENQ=Q2:GOTO3080 

3850 IFX=12THENQ=Q2:GOTO3088 

3060 IFE<CG-Q2)THEN0*02i GOSUB5850 

3070 GOTO3090 

3080 GOSUB5BS0 

3030 H=Qlr0l=B 

3100 M=M+M: IFE<( G-Q2 3THENQ=E+Q2: GDTD3120 
3110 Q-G 

3128 I=Q:Y=28:GOSUB5850 

3130 IFX=3THEND= C INTC £ t CE-I 3+02 3 + .005 3*1 
00 3 3/100:02=0 

3116 IFX=6THENQ=( INTC Ct CE-I 31-Q2 J+ .005 3*1 
803 3/100:02=0 



3150 I FX=9THENQ = T I NT C C f C E- 1 3+02 3-r .005 3*1 
00 3 3/100: 02=0 

3160 IFX=12THENQ=CINTtCCCE-I 3+Q2 3+.B05)* 
100) J/180: 02=0 

3170 N=N+I* lFE-fQ2 = rTHENQ = 0:GOTO3200 
3180 IFX=3ORX=6ORX=9ORX=12THEN3208 
3190 a = eiNTf CCE-I 3r.005 3*100 3 3/100 
3200 E^Q: Y=10:GD5UB5850: I FE=BTHENX=J 
3218 PRINT: IF J = 1 2THENGOTO3230 
3228 PRINT 

3238 NEXTX: PRINT t 2C0J " l PRINTSTREGi 
32^0 Y = 16: 0=( INTC (tit .085 3*100 3 3/100 
3250 PRINT TOTAL ; I G0SUB585B 
3260 0=CINT( CNr .805 3*18813/100: Y=2B 
3278 GOSU05850 

328B Y=10: 0=E: G0SUB5858: PRlNTPUNKTi 
3Z3B PRINT [C03E 18SPCI 

330B PRINT C2C0, I RENTER I MEMORY TAST */- 
r 2SPC3KR ;:Y=10;Q = CINTCCnit.B05 3»IBB3 3/ 
100: G0SUB5858 

3310 GETXi: IFXi= THEN3310 

3320 IFXi= "r-THENO=0i P=0: 0=0: GOTO1900 

3330 IFXi= - "THEN1770 

33^0 IFXi= - THEN1780 

3350 IFXM*> "THEN48Z0 

3360 f1 = 0: N=0: C=C>1 

3370 lFE=BTHENO=0:p-0: Q=0:GOTO1900 
3380 GOTO2870 

3330 GETXi: IFX4 = THEN3390 
3100 D=0: GPTO2870 

3110 IFJ=12ANDD=2THENFORX=2TOJ!GOTO2970 
3120 lFJ=12AN0O=3THENFORX=3T0J:GDTO237B 
3130 IFJ = l2ANDD -1THENF0RX=1T0J:G0TD297B 
31*0 IFJ=12ANQD=5THENF0RX=5T0J:G0TO237B 
3150 IFJ=I2ANDD=6THENF0RX=6T0J:G0TO297B 
316B IF J = 12ANP0 =7THENF0RX=7T0J : G0T0297B 
3170 IFJ=12ANPP=8THENFORX=8TOJ:GDTO2370 
318B IFJ =12ANDP =9THENF0RX=3T0J : G0TO2970 
3190 I F J = 1 2AN0P = 1 0THENFORX = 1 0TO J : GOT0237 
0 

3580 IFJ=12AND0=UTHENF0RX=1 1TOJ:GOT0297 
0 

3510 I F J = 1 2A NDD = 1 2THENF0RX = 1 2T0 J i GOT0237 
0 

3520 GOTQ2090 

3530 REM*** I NDLAAN MED FAST INDSKUD** 
3510 PI =0f 1 1 =0 
3550 Bi=Si 
3568 (1=8: N=0 

3578 PRINT [ CLR 3 i At: PRlNTO^ER* : PRJNTnEL 
$ 

358B PRINT [ CO] [ C/G3E 5SPC) INDLAANC 2SPC3M 
EPt 2SPC 3FASTE 2SPC ] INPSKUDC 6SPC] C C/H3 " : PR 
iNTMELi; PRINTUNDERt 

3530 PRINT C2CN3tRE03 F 1 C 0FF3C 2SPCJ 1NP 
LAAN P1EP RENTER 1 GANG AARLJ G ' 
3600 PRINT T CNJCRE<J3C5SPC3tOFF3C3lSPCJ- 
3610 PRINT TCNJCREU3 F 2 C 0FF3C 2SPC3S L 
E TC3SPC3I N P U T" 

362B PRINT CCNJfREU] F 1 C 0FF3C 2SPCJH E 
N T EC3SPC3D A T A" 

3630 PRINT rCNJtREU] F 7 E0FF3C 2SPC3H 0 
OEPREG ISTER" 
36«»B GETX* 

3650 EFX*=TF13 THENJ =12: K*-- 12: i_=l : G0T03 
700 

3660 !FX*= TF71 THEN230 
3670 IFX*=rF23 THENI I -1 : G0T0572B 
3680 EFX*= fF13 THENll-l:G0T05528 
3690 GOTO3610 

37B8 REM INDLAAH flEP FAST INPKUP 
3710 X=0 

372B PRINT E CLR3 : PRINTSTREGi 

3730 PRINT [ C03f 7S/Q3 I NDLAAN MEP FAST I 

NPSKUD i 7S/Q ] : PRINTSTREGi 

3740 PRINT t COK2S/Q3C3SPCJRENTETILSKRIU 

NINGC 2SPC3PRC 2SPC3AAR 'IL; T 3SPCJE 2S/03 " 

* PRINTSTREGi 

3758 PRINT 
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3768 


PRlNTTfTBC3B);Bi 


4*130 Y=40: 0 GOSUB5850: PRINTPUNKT* 


37?8 


PRINT f C0112CH3 'i: INPUT iNDTflST NflU 


4140 PRINT [ C0][ 40SPC] " 


N Pfift INDLhmN[2SPC]":B> 


4150 PRINT I 2CU3RENTER I PIEPIORY TflST 


3?88 


PRINT:S4tB4 


f 2SPC3KR I : *=40: Q=( INTC CHI + .005 )*180 ) )/- 


379B 


PRlNTTflBC293:C 


I 08: G0SUB585B 


3800 


PRINT TCOK 2CH) INPUT INDTnST STf* 


4468 GET**: lFXi = THEN4460 


RT HflRSTftUSSPC] :C 


4170 IFX* = * T HENO=B: P=B: Q=0: GOTO3530 


3910 


PRINT 


4188 IFX* : - THEN1930 


3820 


PRINTT#4B{29)=D 


4498 IFX*= * THEN4840 


3830 


PRINT fCO:C2CHJ ; : I NPUT INPTP<ST STft 


4588 IFX* - > 'THEN4850 


RT MftflNEP 1/12 ~iO 


4518 I1=0:N=B:C =C+1 


3810 


PRINT 




38S0 


PRINTT^B(29);f 


453B GETX*. IFX*= THEN153B 


3860 


PRINT CC01C2CH3 I : I NPUT INDTAST STfl 


4548 D =8 : G0T01 188 


RTSpLpot BSPCJ :E:El=E 


455B IFJ =12ANPD = 2THENF0RX 5 2T0J i GPTD4208 


3870 


PRINT 


4560 IFJ =12ANDD -3THENF0RX=3T0J : G0T042BB 


3880 


PRI NTTflB(23 3 = F 


4^70 |FJ -12ANDD -4THtr«FORX=4T0J i GOTP4200 


3890 


PRINT fCD][ 2CH]'; : INPUT tNDTflST HEL 


45BB IFJ =I2ANPDt5THENF0RX=5T0J t GOT042BB 


HflRLlG RENTFT35PC3 ;F 


4598 IFJ =1 2ANPD -6THENFDRX =6 TOJ : GOTO4200 


3300 


PRINT 


46BB IFJ =1 2ANPU -7THENF0RX =7T0J : GDTO420B 


HQ t n 
^ J 1 r 


PRlNTTflB(29);G 


4b 10 |FJ =12RNDP -QTHENFORX^oTDJ ; GDTQ4 2B8 


3920 


PRINT t COH 2CHJ": 1 INPUT INDTP.ST I NO 


4620 IFJ -12ANPD -3THENF0RX=9TOJ : GOTO4280 




PR IWNED iG 


*»oJ0 ir J -lZflNDU - 1BTHENF0RX 5 10TO J ; GOTO4Z0 


3330 


PRI NTU IPERE4 


n 






^tilH Ir J - 1 £nNUU-l 1 IntNr DRX- 1 1TDJ * GOTU4Z0 


3950 


IFXi= ♦ THEN3530 


n 

*j 


3360 


IFX* = THEN3940 


4B5B IFJ "I2flNDDtl2THENFDRX=i2T0J: GOTD420 


3970 


PRlNTGENriESi 


8 


3980 


QETX4 


4do0 GOTujdjw 


3990 


IFX*= J THEN 1 1=1: GOT04B3B 


4678 PRINT TCLRjSLET PROGRAn TflST f" 


4000 


IFXi= t THEN3530 


4688 PRINT I 2CN]H0UEDREGISTER TflST T 


4B1B 


IFX* = N THEN1 100 


4638 GETX* 


4020 


GOTO3990 


4700 IFX* 5 * THEN230 


4030 


PRINTTAST* 


4718 IFX*~ *- "MENSY564738 


4040 


GETXi 


4720 GQTO4o90 


4050 


GETXl 


*i TW M 1 _ < ^ m * r* <n Trt ^ c 1 n 

^/jh n i =n l t n • uii iuiqim 


4060 


IFX*= 8 THEN5380 


« ->ji o mi m t Mi rnTn i cm 

4748 nl =nl-H- GUIU lblH 


4070 


IFXt = 0 THEN4860 


j% -™| p n> k4 i _ M | pit * f~ X *l C Tfa 

47bB ni = ni -n . uu i uzo sio 


4000 


I FXi = " t THEN353B 




4090 


GOTO40SB 


IS So 111 — p 1 — 1 )- uU 1 U Ji3W 


4100 


PRINT TCLR]' :B»; 11=8 


47BB nl =p 1 + p- uL) I U3Z30 


4110 


PR I NT " [ HOri r : : PR I NT TAB U 8 3 ; " START Sfl 


1*790 Mi — n * f^nTn t7 c: ici 

< .' JtJ Ml -t' Jb 1 U J! 


lDO 




4000 nl =0: GOTO1610 


4120 


PR I NTTflB T 40 -LEN C STR 4 ( E 1 J3 liEUT CUJ 


"TDlB PI — B * UU 1 UiDJB 


M 


4828 HI =8: G0T03238 


4130 


PR J NT" t HOnjtCNJ-iPRlNTSTREGirPRlNTP 


SITP Ml— Ml— M'f^nTn-444Cl 
1DJB PI — Mil'- QUI Ut*i*t«i 


RIK* 


481B PI I =p 1 -fp- bU 1 U1440 


4 140 


PRINTT HOflJC 2CNK 17CH] " i C: PRINTSTRE 


toje PI — B - oU(U*iMtI0 


Gi: PRI NT TERM N4: PRINT5TRFG* 


*oco od tkiT ■ r n air ■ upki ir "jnnociiic r icon 


4150 


IFX=13THEND=0 


I pbl T InUtl" lu bcMJrNUtK III*- ttuioBDu 


4 160 


I FD > 1 THENGDT04558 


no~ia rrTv« 


4170 


0=0 




4100 


IFX=7THEN1220 


twaw ir*»- ~ HMU1 1 - I 1 Men JJ JH 


4138 


F0RX=1TDJ 


" 3 til) ir(^*~ ■ l pt|IOpt9 


4 200 


IFX=7ANPD-7THEN422B 


4318 PRINT IHDnK3LHJ ill* 


4210 


IFX=7THENG0T04538 


4328 IFTI*' 080010 'HtN134B 


4220 


Y=3:PRINT T 2CO]" 


4 938 G0TD4878 


4230 


0=X: GOSUB5790: PRINT fCU]. I 


4940 PRINT I CLR JL loLriJL DLnjDnTfl UUEKrBRc 


424.0 


□ 1 = ( t f. E/108 )*F IsK's 1: Y= 16: 02=02+01 


S NU TIL DESKETTE"' 


4250 


IFX = 12THENQ = CINTCCQ2+.005 J*100)3/ia 


4950 0PEN2 .8 . 1 4 .0** .S.W 


0: A3 


=0: GOTO4270 


4 968 PRINT**2 ,Bi- PRINT»2 ,C: PRINT«2 .p: PR IN 


4260 


GOTD42B0 


T«2 , El PRINT *Z ,F. PRINT»2 ,6< PR I NT » 2 . J 


4270 


G0SUB585B 


4 978 PRJNT«2 ,K'a: PRINT«2 ,l_: PRINT*2 ,0: PR IN 


4200 


H=Ql!01=B - 


T»2 ,FI 


4290 


n=n+H 


4 SHId ULCJbt*: 


4300 


Q=G 


4330 rRINl I JLN j[ 1ZCH JUUEKF8R5EL SLUT 


431B 


I=Q: Y=28:GOSUB5B50 


50BB PR INT T 3CN]C 12CH J : Bi 


4320 


N=Mt I 


*3010 GETX*:IFXt= THEN5010 


4338 


I FX = 1 2 THENO = CI NT C t C C E 1 1 H02 Hi . 805 J* 


5B20 IFXi= '+ AND 1 1 =1 THEN3530 


100 } VI 00: Q 2 s0: GOTO4350 


D03B IFX*~ ^ FiNDDl =1THEN1308 


4348 


0 = ClNTffCE+l ]-t.0B5i*188) V1B8 


5040 IFX*= f THEN600- 


4350 


E=0: Y^40:GOSUB585B 


Caen ice i — i Tucnoain 

aH'aa Irrl - 1 IHENZo/B 


4368 


PRINT: IFJ=12THENG0T0438B 


5060 IFD1 = 1 THEN2328 


43P0 


PRINT 


3070 IF 1 1 = I THEN4 1 00 


4 360 


NEXTX: PRINT C2C01 : PRI NTSTREG1 


jn«a buiui2/0 


4390 


Y = 16:a^A3 


a03B PRINT I CLR J[ ZBCN JRETUR •» TflST t 


4400 


PRINT TOTAL" ::G0SUB585B 


5100 PRINT THDnK 8CN] 'i 


4410 


Q = r INTffNt.005 )*100 ] V1B0! Y = 28 


5110 PRINT 1 ND IflS TE4SPCJF I L N ft 


4120 


GOSUB5850 


«J Nt 2CK1 : PRINTSTRFG4 
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5 128 INPUTS* 




Tl =Q: Ki = STR*CQ ) 






5130 IFBi= - t' ANDI1=1THEN353B 


58 1 0 


IFTl = 


INTCT1 3THENK* 


Kif .00 


: G0T0581 


51^0 JFB*="t «Nppi=lTHENl300 


D 










5150 IFB* = * THEN6B0 


5820 


T2 = CTl»l800B 3/IB08 






5160 PRINT ICLRJC 10CM][5CH] DATA BUERF0RE 


SOTO 


[FT2 = 


iNTf CT2X108 VIBa )THENK*=K*t' 0 


S NU TIL COMPUTER' 




^RINTTPB f Y-LENCK* 3 3; Ki ; : RETURN 


5170 e-0:H-0;n-0;IS=0:O=0:F=0 




SOTO5800 








5180 0FEN2.8.l1.Bit ,S,R 














5130 lNPUT«2.Bi 














5200 IFSTO8THENGOSUB5310: CL0SE2: GDTO509 
0 














5210 INPUT»2.C: INPUT«2.0: INPUT*2,E: INPUT 


K0NTR0LSUP1 


FOR flNNU I TETSLftflN 




«2,F: INFUT*2.&: INPUT*2.J 














5220 INFUT-2.K*: INPUT*2.I_: INPUT*2 ,0: INPU 


1B0 


213 










T*2.F1 


110 


250 


120 


141 


5230 CLOSEZ:5i=B*:X=0£El=E 


130 


18 


118 


219 


150 


137 


5210 PRINT T2CNJC 12CH]OUERF0RSfL SLUT 


160 


219 


1 70 


113 


180 


113 


5250 PRINT T2CN3C 12CH3 :Bt:PRINTUI0ERE4 


190 


98 


200 


112 


210 


39 


5260 GETX*:IFXi= THEN5260 


220 


72 


230 


102 


210 


16 


5270 IFX» = "t rtNDI I=1THEN3530 


250 


16 


268 


119 


270 


81 


52G0 IFXi = "> ANDD1 =1THEN1980 


280 


18 


230 


119 


300 


31 


5290 IFX« = t THEN600 


310 


52 


320 


126 


330 


56 


5300 IFF1=1THEN2870 


310 


27 


350 


20& 


360 


255 


5310 IFD1 =ITHEN2320 


370 


19 


380 


111 


330 


181 


5320 IFIU1THCN4180 


100 


212 


iie 


109 


120 


242 


5330 GOT0127B 


130 


236 


110 


77 


150 


29 


5310 CLOSE 15 


160 


191 


170 


217 


180 


215 


5350 0PEN15.8.L5. 18 ICL0SE15 


190 


159 


500 


81 


518 


89 


5360 PRINT f CLRU 10CN3C6CHJDPTA FlNPCS J 


520 


31 


530 


233 


510 


252 


KKE - PR0U I GEN' 


550 


8 


560 


112 


570 


218 


5370 FOR* = I TO L 080: NEXTX: RETURN 


588 

C ! II 


6 


590 


112 


600 


98 


5388 PRINT T 2CN J : 0PEN1 . 1 , 1 , ' DflTfl'" 


610 


113 


620 


153 


630 


16 


5390 PR]NT*1 ,B*:PRINT»I ,C:PRIKT*1 .DiPRIlN 


Can 

blB 


206 


650 


17? 


660 


210 


T*l ,ElPRINT»l ,F:PRINT*1 ,G:PRINT*1 r J 


670 


8 


680 


231 


690 


251 


5100 PRINT* t .K*:PRINT*1 ,L:PRINT*1 ,0:PRIH 


780 


129 


710 


117 


720 


78 


T*l ,F1 


730 


222 


710 


23 


750 


172 


5110 CLOSE 1 


760 


179 


770 


65 


780 


133 


5128 PRINT r 3CNJC 12CH30UERF8RSEL SLUT 


790 


132 


880 


131 


810 


36 


5130 PRINT r 3CN][ I2CHJ iBi 


820 


236 


830 


58 


810 


236 


5-110 GETX*MFX* = THEN5110 


850 


30 


860 


112 


870 


lie 


5158 IFX* = " t "fWDI l=lTHFN3530 


880 


38 


890 


76 


900 


105 


5160 IFX»- " r RNDOl = lTHENI300 


910 


191 


920 


38 


33B 


78 


5170 LFXfc*** THEN600 


910 


211 


950 


153 


960 


73 


5180 IFF1=3THEN2B70 


970 


35 


380 


83 


330 


115 


5130 IFD1=1THEN2320 


1 008 


117 


1010 


28 


1020 


153 


5580 IFIU1THEN4100 


1 838 


80 


1018 


63 


1050 


153 


5510 GOTO1270 


I860 


81 


1070 


37 


1080 


153 


5520 PRINTTflST* 


1030 


82 


1100 


11 


1110 


12* 


5530 GETX* 


I 120 


23 


1130 


152 


1110 


101 


5510 IF#4= B THEN5598 


i 150 


123 


1160 


23 


H70 


178 


5550 IFX4= D THEN589B 


1 100 


152 


1130 


188 


1200 


81 


5560 IFXi: t TMENG00 


1210 


213 


1220 


23 


1230 


182 


5570 GOTO5530 


1210 


186 


1250 


152 


1260 


78 


5580 PRINT f 2CNJ :0PEN1 ,l ,B. DpJfl ' 


1270 


17 


1280 


11 


1 290 


0 


5590 INPUT»l ,B*= INPUT«1 X- INPUT*! .pt INPU 


I 300 


170 


1310 


59 


1320 


118 


T*t ,E: INPUT-l ,F: INPUT-l .6: tNPUT*l ,J 


1 330 


212 


1310 


172 


1350 


51 


5600 INPUT-I .KAi INPUT«1 ,L: INPUT*1 ,0: INPU 


1 360 


56 


1370 


178 


1380 


20 


T«l „Fl 


1398 


197 


1100 


119 


1410 


20 


5610 CLDSE1:S4=B*:X=0:E1=E 


1128 


196 


1130 


178 


1110 


78 


5620 PRINT T 2CN3C 12CH3OUERF0RSEL SLUT 


1150 


95 


1160 


75 


1170 


181 


563B PRINT T2CNJ[ 12CH3 : Bi 1 PRINTUIDERE* 


1188 


38 


1190 


118 


1500 


171 


5610 GETX*: IFX4-" THEN5610 


i 51 0 


29 


1520 


i 13 


1530 


181 


5650 IFXt=">"ANDIl=lTHEN353B 


1518 


153 


1550 


113 


1560 


110 


5660 lFX* = '1 flNDDl=lTHENl980 


1 570 


53 


1590 


111 


1590 


95 


5670 lFX»= f THEN680 


1600 


IS 


1610 


UB 


1620 


219 


5680 IFFl=lTHEN2870 


163B 


197 


1618 


1B1 


1650 


168 


5698 IFDl =1THEN2328 


I 660 


157 


1678 


287 


1680 


230 


5700 IFI1=ITHEN1I0B 


1 690 


188 


1 708 


83 


1718 


156 


5710 GOTOl 270 


1 720 


179 


1 738 


226 


1718 


236 


5720 C=0:p-0:E-B:F=0:G-B:H=0I 130: J=0iK»^ 


I 750 


115 


I768 


117 


1778 


113 


0: L=0: B4= : 11 -0: N=0: Si = " ' : X=0: O=0: Ps0 


I7B0 


162 


1790 


161 


I 800 


166 


5730 ni =0: El =B:Q=0:O1 =0:02=0 


1810 


161 


1828 


1 70 


1838 


172 


5710 PRINT rCLRjr I0CNH7CH3S LETTER 


1810 


171 


1 850 


1 76 


I860 


0 


f 3SPC3 1 N P u T 


1 870 


2 


1888 


1 


1830 


35 


5758 FORX=1TO1000: NEXTX 


I 900 


218 


19L0 


231 


1920 


113 


5760 IFD1=1THEN1300 


1 930 


153 


1910 


21 


1 950 


105 


5770 IFIl=l THEN3530 


I960 


217 


1 970 


87 


I960 


116 


5780 GOTO600 


1998 


178 


2008 


122 


2810 


10 


5790 PR I NT TAB t Y-LENCSTRiCQ ))3jQ: t RETURN 


2828 


23 


2838 


112 


2810 


211 



27 



7PS0 


i ai 


:. b C £' 




"in ~in 
«B/B 


21 


c opto 


y/ 


2030 


212 


21 00 


58 


1 n 
*i 1 B 


lie 
i JO 


ii in 

/. 1 


7in 
/Jo 


21 38 


44 


''.in 
*I 1 "t B 




2 1 58 


1 24 


21 60 


23 


7 1 7R 


7H4. 

iflT 




1 PQ 

1 ri J 


1 3U 


1 1717 
1 




7°. 


7 ~> \ a 


"1 1 1 


2220 


204 


2230 


7P.4 
- i 


774Ct 


1 03 


n ^a 




Z too 






1Q 

Z3 


2288 


182 




1 OR 

i oo 


lonp 
t JBB 


*B*t 


71 t n 

£ J 1 K> 


a a 

84 






£ J Jld 


14 


2348 


8 






"Did 


CO 


2370 


138 


7 ion 

< Job 


175 


2330 


51 


2488 


61 


74 i p 

£1 1 B 


l/« 




£J 


2130 


inn 
200 


Z44B 


i i a 


2458 


20 


24 60 


1 96 




J J 


71 PC* 


ie 

'3 


7 - on 


7** *7 




7<t 


£D 1 B 


1 4o 


£32lo 


1 60 




3D 


2340 


113 


■jc c n 


187 


i can 


1 3J 


2570 


143 


2588 


148 


icon 


53 


2600 


14.4 


2610 


35 


2620 


13 


2638 


1 10 


2648 


243 


7f=cr» 


7 on 


?CCQ 

tUQD 


i 

I 3 J 


7n 


101 


tOSB 


i en 
1 Da 


ican 
£030 


ma 


2788 


230 


2710 


210 


2720 


80 




I 4S 
1 j-j 


2740 


176 


2750 


158 


2760 


168 


2770 


162 


2780 


164 


2790 


166 


2800 


16S 


28 10 


170 


28 20 


172 


2830 


252 


2840 


254 


2858 


0 


£bDB 


ad 


<o./*B 


cc 
Dj 




14 




n 
13 




1 1(1 

1 SB 


70 1: n 


cq 
33 


2328 


I 38 


2938 




2948 


51 




* i 


■C JOB 


1 7R 


747CI 


-j .j 


2980 


203 


2990 


1 19 


3B0fl 


20 


fp i P 

-JO 1 rj 


1 4 






TRIP 




"1R4 P 


1 17 




1 /*3 


1PRP 


IS 
1 J 


JH/ id 


B3 




qc 
3D 


Jd3d 


7C 

ZD 


J 1 (7D 


1 P ? 


Jl lb 


"3d 


- i £-»-. 


1 4 Pi 

140 


7 1 1(1 

-J 1 Sri 


1 CO 

1 03 


Jl 4o 






1 /3i 


7 \ CO 

J i oo 


7 I 7 


Jl /"O 


71 i 


7 I oa 
Jl 00 


S7 
Jt 


5 i on 
J13H 


70 

£3 


J/loU 


1 1 J 


77 ■ (1 

Ji 1 B 


1 a 1 
1 0 1 




1d3 


J2J0 


1 St 1 

14J 


JZ*TO 


1 d a 
1 4o 


3250 


53 


3268 


144 


3270 


DC 

33 


a ~* ti >a 
JZOB 


■ a 


77QH 


i • (i 
1 10 


1 7Q n 
J JUW 




3310 


194 


3328 


153 


3330 


163 


3318 


162 


3358 


209 


lien 

3350 


7ini 

230 


3370 


2*10 


3380 


90 


3338 


202 


3400 


186 


3418 


168 


3420 


178 


3430 


172 


3448 


174 


3450 


176 


34O0 


178 


~t ti — i n 
3470 


i on 

180 


34S0 


1 n 7 

182: 


349B 


6 


3500 


8 


35 10 


10 


J3*cle 


nit 
84 


ic ~d r\ 
J3 Jld 


inc 
/0D 


ICJIQ 

JO^lo 




J J -J Id 


1 A1 

I 43 


-> c= t— n 


1 C 1 

1 3 J 


ie; - in 
J3-/M 


7*1 
24 




03 


icon 
J33t9 


243 


jean 


1 1 4 


JO 1 rj 


i /o 


Ju£B 


lit 


-icin 
JOJO 


1 n 
1 B 


J to S id 


£3 


JDJB 




ICC 15 


1 3J 


1CT(1 

JO/B 


£./ 


JDoc 


if 


J03B 


ac 


J/0B 


in t 
20 1 


3710 


Cn 
30 


3720 


236 


i Tin 
JB 


c 

3 




44 


ncn 
J/3B 


I DJ 


3760 


105 


3778 


58 


3780 


98 


1 ion 


in 
so 




*S 1 


10 1 n 
Jo i B 


1 3 J 


3820 


73 


Jo Je 


243 


3848 


1 3 J 


JH3B 


QO 


1QCQ 


CO 

D3 


iq")o 


1 3 J> 


JddB 


rt • 

ol 


loan 
JH3B 


37 


J3WB 


1 JJ 


■jq 1 a 
JUL B 




IQTO 

J3«£B 


aq 
a3 


J3JB 


1 if 


3940 


29 


3950 


205 


3968 


116 




123 


3980 


in 
£3 


1 nan 
J3 JB 


7 1 *7 


4000 


285 


4010 


L83 


4820 


93 


4030 


249 


4840 


29 


4058 


23 


4060 


182 


4070 


186 


4080 


205 


10^0 


07 
82 


4 100 


1 

lo7 


11 18 


I A\ 


4 128 


0 


41 30 


170 


4 1 48 


59 


4 150 


138 


a i an 
4150 


175 


4170 


71 


4 180 


59 


4 130 


1 70 


4200 


23 


-1 1 ■ a 


71(1 

cev 


d i in 


■ i a 


ti Jc 


7(1 


/i Oil n 


1 J 1 






d i^>n 
"* £DB 


Q7 


4270 


95 


^280 


26 


4Z38 


62 


4300 


71 


4310 


149 


4320 


65 


4330 


103 


4340 


28 


4358 


139 


4360 


188 


4370 


153 


4388 


143 



4330 


35 


4408 


53 


4410 


111 


4420 


95 


4438 


13 


4440 


110 


44*50 


249 


4*»60 


281 


1170 


131 


4488 


168 


4490 


159 


4 500 


212 


4518 


230 


4520 


78 


4530 


133 


4548 


174 


4550 


156 


4 560 


158 


4570 


160 


4590 


162 


4538 


161 


4680 


166 


4610 


168 


4620 


170 


4630 


250 


4640 


252 


4658 


251 


4660 


84 


4670 


187 


4 680 


1 80 


4690 


23 


4700 


151 


4710 


1 73 


4720 


92 


4730 


48 


4740 


49 


4750 


52 


4760 


51 


1770 


55 


4780 


54 


4790 


241 


1800 


235 


4810 


238 


4820 


211 


1830 


53 


4840 


52 


4850 


239 


4 068 


10 


4870 


29 


4800 


211 


4890 


217 


4900 


152 


4910 


67 


4 928 


219 


4330 


9? 


1918 


2B2 


4950 


72 


4360 


31 


4970 


8 


4380 


210 


4390 


154 


5000 


13 


5010 


193 


5020 


21 7 


5030 


211 


5040 


152 


5050 


93 


5060 


81 


5070 


84 


5888 


83 


5090 


125 


5100 


179 


51 10 


160 


5120 


235 


5130 


195 


5148 


189 


5150 


130 


5 160 


189 


5170 


55 


5190 


67 


5190 


72 


5200 


99 


5210 


17 


5220 


184 


5230 


132 


5240 


137 


5250 


178 


5260 


200 


5270 


217 


5280 


211 


5290 


152 


5300 


93 


5318 


81 


5328 


84 


5330 


83 


5348 


6 


5350 


36 


5360 


215 


5370 


253 


5380 


77 


5390 


24> 


5400 


4 


5110 


203 


5420 


154 


5430 


13 


5448 


200 


5450 


217 


5460 


21 1 


5470 


152 


5480 


93 


5430 


81 


5500 


84 


5510 


83 


5520 


249 


5530 


29 


5540 


184 


5550 


182 


5560 


152 


5570 


86 


5580 


78 


5590 


lie 


5600 


188 


5610 


191 


5620 


137 


5630 


17B 


5640 


202 


5650 


217 


5660 


21 1 


5678 


152 


5680 


93 


5690 


81 


5700 


84 


e-i 1 n 
3** 1 to 


ai 
0 J 


5720 


105 


5730 


156 


5748 


56 


5750 


53 


5760 


S1 


5770 


90 


5788 


31 


5798 


H1 


5800 


73 


5910 


148 


5820 


25 


5830 


112 


5948 


153 


5950 


86 
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TiEND FOR KVALITET 
OG GODT ARBE JDSMILJO ! 




Luxo's lampeprogram er produkter i topklasse, 
der skaber de bedst tsenkelige lysmaessige rammer 
om en velfungerende arbejdsplads. 
Hej teknisk kvalitet, lysteknik og malinger findes i 
hver eneste lampe - og vi er med i den l0bende 
udvikling med flere nyheder p& vej. 
Luxo er ikke kun avancerede arbejdslamper, 
men ogsa et omfattende program i konceptholdere. 
Og til dette program kan vi nu prassentere 
Copy-Light CL-100 - asymmetrisk lys til koncept- 
holderen! 




- en armlaengde foran. . 




SUPER PRINT 

INPSENDT flF 
OLE TOFT 
GYDEUflENGET 1 
3520 FARUP1 



Til Commodore 64 



10 REP1 xxxxxxxxxxxxxxxxxxx 
20 REfl * SUPERPRJNT x 
30 REfl x OLE TOFT 1985 x 
40 REfl xxxxxxxxxxxxxxxxxxx 

50 POKE532B0,6:POKE532B1 . 14 

50 0PEN4 ,4: PRINT rBLU3'CHR*( 11 )CHR*C8 J 

70 INPUT' C CLR H CNJ ( S/B30GSTf«UBREDDE ;BP 

80 IFBRUTHEN70 

90 BR4=niDiCSTR*CBR*8 ),23 

IBB PRINT E CNKS/S 3KRJFTKODE t [0- BR* 3 

r3SPC10[3CUJ ' j: INPOTKl 

1 IB IFK1 <0ORK1 >BR*6THENPRINT T 3G0] : GOTO 
100 

120 INPUT' T CNKS/S 3KRIFTKODE 2 C1-127X3 
SPCJ127C 5CU] " )K2 

130 IFK2<10RK2>127THENPRINT 'E3CQ3' :G0T01 
20 

140 INPUT f CNH S/C JENTRERING E-I/N3E3SPC] 
JC 3CU3 )C* 

150 IFCtO' J RNDCi <>" I N"THENPRINT"( 3C03' 1 
GOTO140 

150 FORQ=lTat4a8/(8xBR)3tPOKE15B4rQ,30!N 
EXTQ 

170 POKE198 ,1:P0KE631 ,29 
180 PRINT TCNJE S/TJEKST: 

190 POKE 19 . 1 : INPUT "I CNJ >C CU] ' ; tit POKE 19 . 
0 

2B0 T*=MIDMTt.2) 

Z10 IFLENtT*3>C48B/C8;*BR 33THEN70 

220 FORJ =0TO7 

230 IFCts* J THENGOSUB460 

210 FORI =0TOCLENCT«3-1 3 

250 fl=PEEK( 1165+1 3 

260 B=53248+2848+0*fl-t-J 

2?0 C =56333 



280 POKEC 127= POKE 1 .51 : X=FEEKCB 3/1 28 
290 POKE1 .55: POKEC . 123 
300 H=K1 
310 F0RK=1T08 

320 X=CX-XX 1x2: D*=CHRUX5<*K21- 128 3 

330 FORG=lTOBR 
340 F*=D* 

350 H=H-l: IFH=3THENF*=CHR*C128):H = K1 

360 PRINT»*1,CHRtC8 3F*; 

370 NEXTG 

380 NEXTK 

330 NEXTI:PRINT*4 

400 NEXTJ 

410 PRINT"E3CNJ" 

428 INPUT fS/NJY TEKST C J/N 3C 3SPC j JC 3DJJ 
: Si 

130 IFSIO' J flNDSt<>"N"THENFRINT"C2CQ3"! 
GOTO420 

440 IFS*= N"THENFR1NT*1 ,CHR*( 15 ): CLQSEU 
END 

150 CLOSEHRUN 

460 B=233-CLENCT*3*BR*8 3/2: IFB<=8THENRET 
URN 

478 PRINT«4 ,CHR«C8 3CHR*t27 3CHR*C16 3CHR*( 
0 3CHR*CB]CHR*tl2S3; 
480 RETURN 



KONTRCLSUfl FOR SUPER PRINT 



10 


205 


28 


255 


30 


183 


40 


205 


58 


96 


60 


54 


70 


152 


80 


17 


90 


112 


100 


92 


1 10 


202 


120 


206 


130 


241 


140 


166 


150 


127 


160 


238 


170 


152 


180 


51 


130 


151 


200 


27 


210 


57 


220 


136 


230 


0 


240 


3 


250 


201 


260 


53 


270 


249 


280 


21 


230 


58 


300 


1 18 


310 


139 


320 


209 


330 


227 


340 


132 


350 


51 


360 


237 


370 


281 


380 


205 


390 


289 


400 


204 


410 


16 


420 


6 


130 


15 


440 


43 


450 


152 


4 60 


238 


470 


216 


488 


142 




Til Commodore 64 

180 PRINT T CLRH 5CNH 125PC3KARAKTER TEGN 

ER" 

110 PRINT T 5CN3C8SPC3CCJ 19S5E 2SPC3FRITS 
NIELSEN ' 

120 PRINT *C 5CN3C 12SPC3UENT ET 0JEBLIK"':P 
0KE52 . 48: P0KE56 .48: CLR 

150 U=53248:P0KEU+21 . 0: POKEU . 2 1 2: POKEU+1 
.118: POKEU+ 16.0: POKEU+39 .0: POKE2040 . 1 1 
200 F0RPi=49 152T043267: READS: POKEfl ,8: NEXT 
210 F0RP.=784T0766:RERDB: POKEA ,8: NEXT 
300 POKE650.128:POKE646,l:POKE251 .1 
500 PR I NT "E CLR JMUlT JFflRUEE 4SPC 3-' ; : IFPE 
EKC53270 3AND 1 6 THENPR I NT " ON " ; : GOTO520 



510 PRINT'OFF" ! 

520 PRINTTflBC 22 3 "SKERPIFARUEt 2SPC] : "PEEKC 
53261 3AND1S 

530 PRINT" ECN3EXT.8flCKG.CDL.: i '■ \ FPEEKt 
53265 1AN064THENPR I NT " ON"' I : GOTO550 
540 PRINT'OFF"; 

550 PR 1 NTTflB (223" NUL T 1 FflRUE 1 : "PEEKC5328 
2 3AND15 

560 PRINTTflBC 22 3T1ULT IFARUE2 :*PEEKC5328 
3 JAND15 

570 PRINT K(4RflKTERSETC3SPC3-' ";:IF(PEEKC 
53272 3AND 12 3 = 1 2THENPR I NT " RAPT ; = GOTO590 
580 PRINT RQP1 " J 

530 PRINTTflBC223 ,, (1ULTIFflRUE3 : "PEEKC5328 
4 3flND 1 5 

600 PRINT"C 2CN3KARAKTER: "KTF1BC24 )"012345 
6789ABCDEF" 

610 PRINT" CREUH 10SPC3E OFF JE 2SPC JFflRUE: 
I 3SPC10E 2CN3E 10CU3 "PEEKC 251 3"E2C03" 
620 F0Rfl = lTO8:PRINT" CREU] I OFF3E 8SPC3C R 
EU3 [ OFF 3 "TUB (21 3AU NEXT : PRINT " EREU3E10S 
PC 3E OFF 3 "; 

630 PRINTTflBC 22 3"9E CN3E CU3 Al CN3E CU]BE CNJ 
f CUJCE CN3ECU30E CN3E CU3EC CN3E CU3F"? 
640 POKEU+21 ,i:SYS49210:SYS49248 
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900 POKE49170 . f 122B8+K*8 V256: P0KE431 69 . 
f l2288tKx8 3-256*PEEKC43i78 3 
910 SYS43l52:C=0:R=0 

958 POKE! 533 .K;FDRfiil678TO1758STEP40:FOR 

B=0TO2: POKEA+B .K : NEXT i NEXT: POKE 1 98 . 0 

1000 fl=PEEKC 1426+C*40xR ): P0KE1426+C+4BJtR 

,2l5:POKE1426+C+40xR,A 

l 010 GETA*: IFAi=" "THENI080 

1020 IFAi = ' 0'ANDR>8THENR=R-1 :GOTO1000 

1030 IFAi= V'ANDR<7THENR=Rt1:GOTOI000 

1040 IFAi= ; ANDC<7THENC=C+1 :GOTO1000 

1050 IFfl*- = ANDC>8THENC=C-1 : GOTO 1000 

1060 IFA«- = " "THENPaKEt2288+K*8+R,PEEKC12 

288+K*8+R 3AN0255-2TC7-C 3: P0KE1426+C+R*48 

.32 

1070 IFA* = [ S/03 ANDR>0THENGOSUB1B00:R=R 
-1 : GOTO 1000 

1072 IFp.* = " ?' ANDR <7THENGOSUB 1800: R=R+1: G 
OTO100B 

1071 [FAi = "t "ANOC>8THENGOSUB1000:C=C-1:G 
OTO1008 

1 076 IFAi i 1 ' ANDC <7THENGOSUB 1 908: C =C+ 1 : G 
OTO1000 

1080 IFA*- CF23 THENGOSUB2060 

1090 IFAi = * C F3] "THENGOSUB2I00:GOSUB2300 

1 100 IFAi = C F53 THENGOSUB2200: GOSUB2300 

1110 IFAi- F"THENGOSUB2480 

1128 IFAi= B THENGOSUB250B 

1130 IFP1= £F73 THEHGOSUB2e8e 

1140 I FAi = "N ' THFN2700 

1 150 lFfl*='H"THENGQSUB3800:GOTO300 

1160 I FAi ="R" THENGOSUB3 1 00 ( GO TO300 

1170 I FAi = 1 S M THENGOSUB32a0 : GOTO300 

1 180 IFAi = K"THENGOSUB33B0:GOTO308 

1130 IFAi="T THEN3800 

1200 I FAi = "[ F I ] "THEN5000 

1280 I Ffii= "t F6]"THEN4000 

1230 I FAi a r FB3"THEN4S00 

1380 GOTO1000 

1880 PQKE122B8+K*8+R .PEEKC 12298+K*8+R DOR 

2t t 7-C j! POKE 1 426+C+R*48 .0: RETURN 

1980 PR I NT " t HOP! J C 1 3CN 3 " : RETURN 

1399 REM xxxxx EK1FTE RAM-ROH 

2000 IFfPEEKC53272 3AND12) = 12THEINPOKE5327 

2 . f PEEKC53272 3AND240 30R4: GOTO2020 

20 10 POKE53272 . < PEEKC 53272 3AND240 30R 1 2 

2020 PRINT"rH0f1H4CN]"TABC16 3: ! 1FCPEEKC5 

3272 3P.ND 1 2 ) = 1 2 THENPR I NT "RAM " : RETURN 

2030 PRINT-ROM": RETURN 

2039 REM xxxxx flULTICOLOR ON /OFF 

2100 P0KE53265.PEEKC53265 3AND191 

2110 T FPEEK C 53270 3AND 1 6THENPOKE53270 .PEE 

KC53270 3AND239: RETURN 

21 20 POKE53270 .PEEKC5327B 10R 16: RETURN 

2139 REN xxxxx EBC ON^OFF 

2200 POKE53278.PEEKC532701MNO239 

2210 IFPEEKC 53265 3AND64 THENP0KE53265 . PEE 

K C 53265 3AND 1 91 : RE TURN 

2220 P0KE53265 .PEEK C 53265 30R64 i RETURN 

2239 REM xxxxx SKRIUE ON/OFF 

2308 I FPEEK C 53270 )ANO 1 6 THENPR I NT C HOpl 3 T 

ABtl63"ON ":GOTO2320 

2310 PRINT"CH0ni"TflBC16)~0FF" 

2320 EFPEEKC 53265 )AND64THENPRINT"CCNJ"Tfl 

BC163"ON " : RETURN 

2330 PR I NT "t CNJ"TflBU6rOFF";RETURN 
2339 REM xxxxx FARUE 

2188 GOSUB1300:PRINT"NY FARUE: " : L =2: GOSU 

B7B00r IFAM5THEN24B0 

24 IB IFA=CPEEK(5328l 3ANQI 5 3THEIH2400 

2420 P0KE646.A:P0KE251 ,A: SY549248: GOSUB7 

588 

2430 PRINTT HOMJC 1 lCN3"Tf»Btl3)fl-rCU3 ~;R 
ETURN 

2439 REM xxxxx BAGGRUNDSFARUE 
250B GOSUB 1 388: PR I NT "BAGGRUNDSFARUE: PEE 
KC53280 IflNDl 5: PFINT-C CN3NY BAGGRUNDSFP.RU 
E: - 



2510 L=2:GOSUB7008: 1FA>1 5THEN2510 
2520 P0KE53288.fi: G0T07588 

2599 REM "»» I1ULTIFARUER 

2600 GOSUB 1 900; PR I N T " NY SKERMFARUE: " : L=2 
:GOSUB7000: IFA > 15THEN2600 

2610 IFA=PEEKC251 1THEN26QB 

2615 IFA=0THENPOKEU+39.8:GOTO2620 

2616 P0KEU4-39.B 

2620 P0KE53281 . A: PR I NT "[ HOM3 " TflBt 35 3A'T C 
U] ■ 

2630 GOSUB1300JPRINT riULTIFp,RUE It -:GOS 
UB7B00: IFAM5THEN2630 

2640 POKE53282jA:PRIN:T"CHOpl3t2CN3 TABC35 
WTCU3 - 

2658 GOSUB1300:PRINT flULTIFARUE 2:":G0SU 
B7800: IFA>15THEN2650 

2660 P0KE53283 .A: PRINT *'[ HOM3T 3CN3 "TABC35 
W"[CU3 * 

2670 GOS UB 1 900 : PR T NT " MUL T I FARUE 3:*:G0SU 
67080: IFA>15THEN2678 

2688 POKE53291 *A: PRINT"! HOM 3C 4CN3 'TABC35 
3A "[ CUJ ":GOTO7500 

2699 REM xxxxx SKJPTE TEGN 

2700 RMNTtK/16):C=K-R*16 
2710 GETAi: IFAi = " " THEN2718 

2720 IFA* =" i -ANDC < 1 5THENC -C + 1 : GOTO2808 
2730 IFAi = " : - ANOC >8THENC=C-l r GOTO2820 
2740 IFA4="x"ANDR<15THENR=R+l:P0KEUtl .PE 
EKCU+1 3+8 

2750 IFAi = " O " ANDR > BTHENR =R- 1 : POKEU 1 1 .PEE 
KCU+1 3-8 , 

2768 IFA40CHRK 13 3THEN2718 

2778 K=R»16i-C:PRlNT"tHOM3C7CN3-TABC9 3K"[ 

CU3C2SPC3':GOTO900 

2800 IFPEEK[y3>251THENPOKEUtl6.i:POKE0.4 
:GOTO2710 

2810 POKEU .PEEK(U 3+8: GOT0271 0 

2820 IFPEEK(U)<5THENPOKEU+16.0: POKEU. 252 

:GOTO2710 

2830 POKEU .PEEKC U 3-8: G0TO271 0 

2333 REM **xxx HENTE TEGN FRft ROM 

3008 GOSUB1380:PRINT"HENTE ANTAL TEGN: - ; 

:i_=3:GOSUB70B0: IFA >256THEN3080 

3018 IFA=0TMEN7500 

3820 B =fi: PRI NTB: PR INT T CN3FRA TEGNi " : 
3030 GOSUB708B: IFA >255THEN3830 
3040 PR1NTA: P0KE56334 .PEEKC56334 3AN0254: 
POKE1 .PEEKC 1 3AND251 

3058 F0RQ = 122S8T012287+B*8:P0KEQ+A:*8 .PEE 
K( Q+AX8+40960 3: NEXT 

3068 POKE1 .PEEKC 1 30R4: P0KE56334 .PEEKC 563 

34 30R1 : GOTO7580 

3899 REfl xxxxx REUERSE TEGN 

3188 GOSUB1308:PRINT'REUERSE ANTAL r " ; : L = 

3: GOSUB7000: 1FA>256THEN3108 

3110 IFA=0THEN7500 

3120 B=A: PRI NTB: PR I NTT CN3FRA TEGN:"; 

3138 GOSUB7080: IFA >255THEN3i 30 

3140 PRINTA:F0RQ=1228BT0I2287+B*8:P0KEQ+ 
AxB,255-PEEKCQ+A*8 i: NEXT: GOTO750B 

3139 REfl xxxxx SLETTE TEGN 

3280 GOSUBI300:PRINT"SLETTE ANTflU - J ; |_=3 
:GOSUB70B0: I FA > 256THEN3200 
3210 IFA=0THEN7500 

3220 B=Ar PRI NTB: PR INT "[ CN3FRA TEGN £ " ; 

3230 GO5UB7000: [FA >255THEN3230 

3248 PRINTA-' FORQ = 1 228BT01 2287+B>8: POKEQ+ 

A»8.0:NEXT:GOTO750B 

3239 REM xxxxx KOP I ERE TEGN 

3380 G0SUB13BB:PRIHT*K0PIERE ANTpL:";:L= 

3:GOSUB7080: IFA >256THEN3300 

3310 IFA=0THEN7500 

3320 B=A: PRI NIB : PR INT "FRA TEGN:"; 

3330 GOSUS7000: IFA >255THEN3330 

3348 C=A: PRINTC:PRINT~TIL TEGN: " I 

3350 GOSUB7000: [FA>255THEN3350 

3360 PR I NT A: FORQ=12288T012287+B*8: POKEQ+ 

8*8 .PEEKC0+CX8 >: NEXT: GOTO75B0 
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3?33 REfl "X" TEKST 

3800 POKEU+21 ,8: PRINT' [ CLR3E WHT][ 5CH3KAR 
AKTER TEGNER TEKST " 

3818 PRINT* f 2CN3E PURIPED DENNE UflLGHULlG 
HED KAN DU FINDE ' 

3820 PRINT I TNH YELJUD ftp OH TEGNENE FAS 
SER TIL HINP.NDEN." 

3830 PRINT I CN][ CYN30G TIL DE F0R5KELLIG 
E FARUER- " 

3840 PRINT TCN3CLT8LU3SKRIU 'END' FOR AT 

SLUTTE .T 2CN Jl UHT J 
3850 INPUTfl*: IFA*= END THENPOKE251 .PEEKC 
616]:GOTO500 
3B60 GOTD3B50 

3339 REfl ***** SftUE KflRAKTERSFT 

I860 POKEU+21 ,0: PRINT ' f CLR][ CNK 12SPC3SA 

UE KARAKTERSFT 

4010 PRINT'T 3CN3SKAL KARPKTERSETTET SP.UE 
S CJ/Nr 

4020 GETflt: IFA*= N"THEN590 
1030 IFAKV J THEN4020 

4840 FORPsBTOl : POKE50000+A .PEEKC45+A ): NE 
XT 

40S0 PRINT f 3CN3LAGER if REU JDf OFF] ISK/C R 

EU ]KC OFF 3ASSETTE ) 

4060 GETflt: IFA* = K 'THEN4200 

4070 IFPIO 'D THEN4060 

4 100 POKE43 .0: POKE44 . 48: POKE45 , 0: P0KE46 , 
56:SftUE O0--REF .8 = PQKE43 a I : POKE 44 . 8 
4120 P0KE45. PEEKC 50008 3: P0KE46. PEEKC 5000 
1 J 

4130 fltz" : TNPUT I WOfl JC 13CNJKARAKTERSET 
NAUN : !A* 

4135 IFA* = -"ORLENCAim4THEN4l30 

4110 OPEN15.8.15. S0:K. *AS 

4150 PRINT»15."R0:K."+A4*-^REF' :CL0SE15: 

GOTO500 

4200 POKE43 .0: POKE44 .48: POKE45 , 0: POKE46 . 
56 : SAUE KflRflKTERSE T : POKE43 . 1 : P0KE44 , 8 
4210 POKE45 .PEEKC50000 1: POKE46 . PEEKC 5000 
1 J:GOTO500 

4199 REM "in LOftO KfiRflKTERSET 

4500 POKEU*21.0: PRINT TCLRHCN3I 12SPC 3L0 

AD KARAKTERSET" 

45 10 FRINTT3CN3SKAL KARP-KTERSETTET LOAD 

es cj/sr 

4520 GETfit: IFP.1^"N"THEN500 
4530 IFP.4O-JTHEN4520 

4550 PRINT"! 3CN3LAGER f T REU30C OFF 3 ISK/t R 

EU JKC OFF 3ASSETTE 3* 

4560 GETfli: IFflir-K"THEN4700 

4570 IFP4O"O"THEN4560 

4600 Ai="": INPUTT HOP1K 1 3CN 3KARAKTERSET 
NP.UN : 

4605 1FA4 = ' ORLENCA4 3M4THEN4608 

4610 LOAD K.*A4,B.l 

4700 LOAD KARAKTERSET ",1 .1 

4333 REfl ***** SKRIUE VALGHUL I GHEOER 

5000 F0KEU1-21 ,0:PRINT [ CLRJ[ CNJt 12SPC 1KA 

RAKTER TEGNERC 2CN J 

5010 PRINT C2SPC]* / : : C 6SPC 3KURSOR" 
5020 PRINT SHIFTt ' KURSOR ' TEGNE 
5030 PRINT r3SPC)SPflCEC7SPC3SLETTE'' 
5010 PRINT N, 'KURSOR* .RET SKIFTE KARAKTE 
R 

504.5 PRINT 

5050 PRINTT3SPC]'F2'E8SPC3SKIFTE HELLEPI 

RAfVRon- 

5060 PRINrr3SPCrF3 , [8SPC)r)ULTIFAR<JE ON 
/OFF" 

5070 PRINT" r 3SPC ] ' FS ' [ 0SPC3EXT - BACKG . COL 
. ON/OFF" 

5080 PRINTS 3SPC]'F7't8SFC)riULTIFARUER" 

5090 PR I NT" f 5SPC3FC9SPC JFARUE" 

5100 PRINT'T 5SPC ]Bt 3SPC 3BAGGRUNDSFARUE" 

51 IB PR I NTT 5SPC ]T[ 9SPC] TEKST" 

5120 PRINTTSSPCJ'Fe'teSPCJSflUE KARAKTER 



5135 PRINT 

5140 PRINT T 5SPCJHT 3SPCJHENTE TEGN FRA R 

on 

5158 PRINT T 55PC3RC 3SFC JREUERSE TEGN 
5160 PRINT T5SPC]St9SPC]SLETTE TEGN' 
5170 PRINT T 5SPC JKC 3SPC3KOPIERE TEGN 
5208 GETAi: IFA*= " THEN5200 
5210 GOTO508 

6333 REM ***** INDTASTE TflL 
7000 POKEI38.0: A*r ' ' 
7B10 POKE198B+LENCA43.16B 
7820 GETB4; IFB* = THEN7820 
V ?B3B IFB4=CHRiC13)THEN7070 

7010 IF0$= C DEL] ANOLENCAi 3>0THENfti=LEFT 
t[ A* .LENCA4 3-I 3:PaKE1389+LENCA4 1, 32 
7050 IFB*< 0 , QRBi>'"9"ORLENCfl4 3=LTHEN70l0 
7060 P0KE19B8+LENCA4).ASCCB4):A4=A4+B4;G 
OTO7010 

7070 FORA:07O3:POKE138B+A,32:NEXT: A=UALC 
Ai 3: RETURN 

7499 REH ***** SLETTE TEKST 

7500 GOSUBl900tFORB=ITO4:PRlNT I22SPC3 ! 
NEXT: RETURN 

8999 REH ***** MASKINKODE/SPRlTE DATA 

9000 DAT A 1 63 . 116 . 1 33 . 252 . 169 .5 . 133 ,253 . 1 
62,0.169.128.133.254. 160.0.189 

90 10 DAT A0 . 18 . 37 . 254 , 210 .7 . 1 69 .8 . 115 . 252 
.76.34.192.169,32.115.252 

9028 Dp.TP-70. 251. 208. 132. 8. 208.231 ,165.25 

2.24. 105 .40 .133.252.111 .2.230 

9030 OPT A253. 232.221.8. 208. 289. 96. 169,12 

8 . 1 33 . 25 2 . 1 69 . 5 . 1 33 . 253 .162.0 

9048 DPTP160. 0.1 38. 145. 252 .232 .210.19.20 

0.132.16 .208.215.165.252.21.105 

9050 DP.TA40 . 133 .252 , 1 41 ,234 .230 .253 ,76 ,6 

8,132,96 .165.251 .162.0.157.0 

9060 DATA21 6 ,157 .0,21 7. 1 57. 0.218, 157. 0,2 

13.232.208.241 .96 

9200 DftTpe, 0.8. 3, 132, 0,15. 210.0 

9210 DPTA31 .218.0.48.12.0.48.12.0 

9220 DPTP.1 12. 11, 0.1 12. 14.0. U2.I1 ,0 

9230 DPT A 1 12. 14.0. 48. 12,0. 48. 12.0 

9240 DAT A3 1 .248.0 .15.240.8.3.132.0 

9250 DPTA0, 0.0. 0.0. 0.0, 0.0. 0.0 .0.0,8.0.8 

.0.0 
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KR YDS %. BOLLE 

INDSENDT AF 
THOflAS S0NDERGAARD 
BYGHARKEN 17 
4860 KRIRKE SAABY 



Tli Commodore 64 

180 PRINT 'CCLR3E 8CN3 TI* = "000000 : G0TO3 
350 

118 PRINT' THOM3C 9CN31 16CH3CREU3C GR3] 1 2 

3 " 

120 PRINT"[ 16CH3CREU3 CCHJ CCH3 CCH3 ' 

130 PR3NT"tl6CH3[REU3 4 5 6 " 

140 PRINTT 16CH3CREU3 CCHJ [ CH3 CCH3 " 

158 PRINT 'C 16CH3CREU3 7 8 3" 

160 PRINT' t 16CH3CREU3 CCH3 [ CH3 CCH3 ' 

178 PRINT"C l6CH3l:REU3C7SPC3 , ' 

180 PR3NT"'f HOH3C 7CN3E REU3C LTGRN3 DET ER 

BEDST DU STARTERC UHT3 " : GOTO 390 

190 END 

200 IF Tl=l THEN PRINT"tHOn3C 17CH3C 18CN3 
[SAT 

210 IF CI =1 THEN PRINT'THOrUC 17CH3E 10CN3 
CS/T33 

220 IF T2=l THEN PRINT" EHOPUC 19CH3C 10CN3 

ts/ur 

238> IF C2 = l THEN PR INT' E HOP13E 19CH3E 10CNJ 
tS/03* 

240 IF T3=l THEN PR INT'T HOfllt 21CH3C 18CN3 

ts/vy 

250 IF C3 = l THEN PR INT "I HOP13E 21 CHIC 1 0C|S J 

rs/Ui" - 

260 IF T4 = l THEN PRINT "tHOHJC 17CH3t 12CN3 

rs/ur 

270 IF C4=l THEN PRINT EHOH3C 17CH3C 12CN3 
rS/Q3" 

280 IF T5=l THEN PRINT EHOPUC 19CH3E 12CN3 
CS/U3" 

290 IF C5=l THEN PRINT "t HQH3C 1 9CH3C 12CN3 

300 IF T6=l THEN PRINT C HOM3C 21CH3C 12CN3 
f SAI3 " 

310 IF C6=l THEN PR INT T HOJ13C 21CH3C 12CN] 

rs/ai-' 

320 IF T7=l THEN PRINT "E HON3C 17CH3C 14CN3 



330 IF C7=l THEN PR INT "C HOI13E 1 7CH3C 1 4CN3 

340 IF T8 = l THEN PR INT "t HOH3C 19CH3C 14CN3 
CS/-V3'' 

350 IF C8 = I THEN PRINT "C HOI13E 19CH3C 14CNJ 
f S/03" 

360 IF T9 = l THEN PRINT"[ HOP13t 21CH3C 14CH3 
tS/U3-' 

370 IF C9 = l THEN PR INT "C HOME 21CH3[ 14CN3 

rS/Q3*' 

388 RETURN 

39B GET A: IF A=0 THEN 390 

400 IF A = l THEN T1=1:C5=1 

410 IF A=2 THEN T2=1:C5=1 

420 IF A-3 THEN T3=1:C5=1 

430 IF A=4 THEN T4=1:C5=1 

440 IF A = 5 THEN T5=I:C1=1 

450 IF A=6 THEN T6=1:CS=1 

460 IF A=7 THEN T7=I:C5=1 

470 IF A=6 THEN T8=1:C5=1 

480 IF A=9 THEN T9=1:C5=1 

490 GOSUB 200: IF C5 = l THEN PRINT "C REU3CU 

HT3 E HOP3C 7CN JDER UAR JEG SflpRTC OFF3 1 WHT J 

f 10SPC3 :GOTO 518 

500 PR INT'T HOM3C 7CN 3C REU3C WHT3SKYND PIG 

LIDTCUHTJEOFFSC 13SPC3" 

510 SET e- IF A=0 THEN 510 

520 IF A = l THEN IF T1=0 AND C1=0 THEN Tl 

530 IF A=2 THEN IF T2=B AND C2=8 THEN T2 

540 IF A=3 THEN IF T3=0 AND C3=0 THEN T3 

550 IF A=4 THEN IF T4=0 AND C4=0 THEN T4 

560 IF A=5 THEN IF T5=0 AND C5=0 THEN T5 

570 IF A=6 THEN IF T6=B AND C6=0 THEN T6 

580 IF A=7 THEN IF T7=B AND C7=0 THEN T7 

590 IF A=8 THEN IF T8=B AND C8=0 THEN T8 

600 IF A*9 THEN IF T9=8 ANO C9=0 THEN T3 

610 IF Tl+T2+T3+T4+T5+T6*T7tr8+T9=l THEN 
580 

620 GOSUB 280 

638 PR3NT'TH0M3C7CN3CREU3CCYN3GIU piIG NU 

UDT TIDCOFF3tWHT3t8SPC3 : GOTO 353B 
640 IF C5=l THEN 760 
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658 IF T5=t THEN IF T8 = l THEN C2=l:GOT07 
20 

668 IF T3=l THEN IF C7=0 THEN C7=1:GOT07 
20 

670 IF T4=t THEN IF C6=0 THEN C6=l:GOT07 
20 

680 IF T6=l THEN IF C4=0 THEN C4=1:GOT07 
28 

690 IF T7 = l THEN IF C3=0 THEN C3=1:GOT07 
20 

700 IF T8=i THEN IF C3=0 THEN C3=1:GOT07 
20 

710 IF T3=L THEN IF Ci=0 THEN Cl=l:GOT07 
20 

720 GO SUB 200 

730 IF T5tT3=2 THEN IF C2=0 THEN C2 = HGO 
TO720 

740 GOTO 920 

750 IF T5*T9=2 THEN IF C2=0 THEN C2=i:GO 
TO720 • 

760 IF T1+T3-2 THEN IF C6=B THEN C6=1:G0 
TO720 

778 IF Tl+T2=2 THEN IF C3=8 THEN C3=l:GO 
TO720 

780 IF T2+T3=2 THEN IF C1=0 THEN Cl = UGO 
T0728 

790 IF Tl+T3=2 THEN IF C2=0 THEN C2=i:GO 
TO720 

888 IF Tl+T4=2 THEN IF C7=8 THEN C7=l:GO 
T0728 

810 IF Tl+T7=2 THEN IF C4=0 THEN C4=l:GO 
T0728 

828 IF T4+T7=2 THEN IF C1=0 THEN Cl=l:GO 
TO720 

838 IF T7+T8=2 THEN IF C9=0 THEN C9=i:GO 
TO720 

340 IF'T7+79=2 THEN IF G8=@ THEN C8=l:GO 
T0728 

850 IF T8tT3=2 THEN IF C7=0 THEN C7=l;60 
T0728 

860 IF T3+T6=2 THEN IF C3=0 THEN C3=i:G0 
TO720 

378 IF T3+T9=2 THEN IF C6=0 THEN C6=I:G0 
T0728 

880 IF T6+T9=2 THEN IF C3=B THEN C3=l:GO 
TO720 

830 IF TltT3=0 THEN C1=1:GOTO720 

908 IF T3+T7=8 THEN C3=1:GOT0728 

910 IF T5+T9=2 THEN C2=l:GOTO720 

928 PR I NT "f HOflK 7CNJC REU3C GR33DET ER ALT 

SAfi DIN TUR NUCOFFKUJHTH 12SPCJ" 

930 GET A: IF fl=0 THEN 930 

940 IF A = l THEN IF T1=0 AND Ci=0 THEN Ti 

=1:GOTO1040 

350 IF A=2 THEN IF T2=8 AND C2=8 THEN T2 
-i:GOTO1040 

960 IF A=3 THEN IF T3-=0 AND C3=0 THEN T3 
-l:GOTO1048 

970 IF A=4 THEN IF T4=8 AND C4=0 THEN T4 
-l:GOTO1840 

9BB IF A=5 THEN IF T5=0 AND C5=8 THEN T5 
=l:GOTO1048 

990 IF A=6 THEN IF T6=3 AND CE=0 THEN T6 
^l:GOTO1040 

1000 IF A = 7 THEN IF T7=0 AND C7=0 THEN T 
7=i:GOTOl040 

1010 IF A = 8 THEN IF T8=0 AND C8=0 THEN T 
9=1: GOTO1040 

1028 IF A = 9 THEN IF T9=0 AND C9=0 THEN T 
9=1:GOTO1040 

3830 PRINT'E2CO]":GOTO 930 
1040 GOSUB 20B 

1050 PRINT T HOriJC 7CNK REU3E LTRED3 JEG TAE 
NKER niG L IDT OflC OFF K UIHTK 1 0SPC 3 " : G0T03 
J 80 

1868 IF TItT2=2 THEN JF T3+C3=0 THEN C3 = 
l: GOTO 1340 

1870 IF T1*T3=Z THEN IF T2+C2=0 THEN CZ= 
1:GDT01348 



THEN 


IF 


Tl+CI =8 


THEN 


Cl = 


THEN 


IF 


T6+-C6=0 


THEN 


C6 = 


THEN 


IF 


T5fC5=0 


THEN 


C5 = 


THEN 


IF 


T4+C4=0 


THEN 


C4 = 


THEN 


IF 


T9+C9=8 


THEN 


C9 = 


THEN 


IF 


T81-C8=0 


THEN 


C8 = 


THEN 


IF 


T7+C7^0 


THEN 


C7 = 


THEN 


IF 


T7*C7=0 


THEN 


C7 = 


THEN 


IF 


T4i-C4=0THEN C4 = l 


THEN 


IF 


TH-C1=0 


THEN 


Cl = 


THEN 


IF 


T8+C8=0 


THEN 


C8 = 


THEN 


IF 


T5i-C5=0 


THEN 


C5 = 


THEN 


IF 


T2*C2=0 


THEN 


C2 = 


THEN 


IF 


T9*C9=0 


THEN 


C9 = 


THEN 


IF 


T6+C6-0 


THEN 


C6 = 


THEN 


IF 


T3*C3=0 


THEN 


C3 = 


THEN 


IF 


T9«-C9 = 8 


THEN 


C3 = 


THEN 


IF 


T5+C5=0 


THEN 


C5 = 


THEN 


IF 


TltCl=0 


THEN 


C5 = 


THEN 


IF 


T7+C7=0 


THEN 


C7 = 


THEN 


IF 


T5tC5=0 


THEN 


C5 = 


THEN 


IF 


T3+C3=0 


THEN 


C3 = 


THEN 
THEN 
THEN 
THEN 


CI 
C2 
C3 
CI 


=l:GOTO1340 

=1:GOTO1340 
=1:GOTO1340 
=l:GOTO1340 





1 1 GOTO 1340 
1090 IF T4 + T 
1 : GOTOl 340 
1100 IF T4fT 
IIGOTO 1340 
1110 IF T5+T 
liGOTO 1340 
1120 IF T7+T 
1 : GOTO 1 340 
1 130 IF T7*T 
l:GOTO 1340 
1148 IF T8*T 
1 : GOTO 1348 
1158 IF TUT 

l:GOTO 1340 
1168 IF TUT 
: GOTO 1348 
1178 IF T4*T 
l:GOTO 1340 
1 188 IF T2+T 
l:GOTO 1340 
1 198 IF T2+T 
l:G0TO 1340 
1208 IF T5*T 
I : GO TO 1340 
1218 IF T3+T 
1 : GOTO 1348 
1228 IF T3*T 
1 :GOTO 1340 
1238 IF T6*T 
I : GOTO 1340 
1240 IF TUT 
l:GOTO 1340 
1258 IF TUT 
l:GOTO 1348 
1260 IF T5+T 
l:GOTO 1340 
1270 IF T3+T 
lrGOTO 1340 
1280 IF T3+T 
l:GOTO 1340 
1290 IF T5+T 
UGOTO 1340 



1348 GOSUB 208 

1350 PRINT "CHQP13C7CN]tREU3CLTGRN3HUftD HA 
R OU LYST TIL AT FLYTTECOFFH UHTH9SPCJ " 
1369 GET A: IF A=0 THEN 1360 
1370 
470 
1388 
470 
1390 
470 
1400 
478 
1410 
470 
1420 
470 
1430 
470 
1440 
"70 
1450 
470 

1460 PR INT" T 2C03 " • GO TO 1360 
1470 GOSUB 200 

1488 PR INT " f HOPIK 7CN H REU][ WHTIHUAD (1ED 
ftT SIGE HUORTILCOFFHUHTK IlSPCr 
1490 GET B: IF B-0 THEN1490 
1500 IF A=B THEN 1470 

1518 IF B=l THEN IF T1=B AND C1=0 THEN T 
1 =l:GOTO1610 



IF 


A = l 


THEN 


IF 


Tl = 


1 


THEN 


Tl 


=8:G0T01 


IF 


A =2 


THEN 


IF 


T2 = 


1 


THEN 


T2 


=0:GOTO1 


IF 


A=3 


THEN 


IF 


T3= 


I 


THEN 


T3 


=0: GOTOl 


IF 


A =4 


THEN 


IF 


T4 = 


1 


THEN 


T4 


=0:GOTO1 


IF 


A=5 


THEN 


IF 


T5 = 


1 


THEN 


T5 


=0: GOTO 1 


IF 


A=6 


THEN 


IF 


T6 = 


1 


THEN 


T6 


=0: GOTO 1 


IF 


A =7 


THEN 


IF 


T7 = 


1 


THEN 


T7 


=0: GOTO 1 


IF 


A=8 


THEN 


IF 


T8= 


1 


THEN 


T8 


=0: GOTO 1 


IF 


A=9 


THEN 


IF 


T9 = 


1 


THEN 


T9 


=0: GOTOl 
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1520 IF B=2 THEN IF T2=0 AND C2=0 THEN T 
2=J:GOTO1610 

1530 IF B=3 THEN IF T3=0 AND C3=0 THEN T 
3=1 s GOTO 10 10 

1540 IF B=4 THEN IF T4=0 AND C4=0 THEN T 
4=l:6OTOl510 

1550 IF B=5 THEN IF TS=0 AND C5=0 THEN T 
5=1:GOTO1610 

1560 IF B=6 THEN IF T6=0 AND C6=0 THEN T 
6-l:GOTO1610 

1570 IF B=7 THEN IF T7=0 AND C7=0 THEN T 
7=i5(5OTOlB10 

1580 IF 0=8 THEN IF T8=0 AND C8=0 THEN T 
6=1:GOTO1610 

1590 IF B-3 THEN IF T9=0 AND C9=B THEN T 

9=1:GOTO1610 

1600 GOT0147B 

1610 PRINT '[ HOf13 [ 9CN3C 16CHJ1 REU3C GR33 I 
2 3 " 

1628 PRINT M7CH3 [ CH3 [ CH3 [ CH3 " 
1630 PRINT T 16CHJCREU] 4 5 6 " 
1648 PRINTM7CH3 ECH3 tCHJ C CH J 
1650 PRINT T 16CH1CREU3 7 8 3 " 
1660 PRINT T 17CH3 1CH3 fCHJ ECH3' 
1 670 PR I NT T 1 6CH 3 C REU J C 7SPC 3 C UHT 3 " 
1680 GOSUB 200 

1690 PRINT'S HOH3 C 7CN3C REUK LTBLU 3HAR DU 

UUNDET SRfl SIG DETCOFF3CUHT3C 9SPC3" 

1700 IF TlfT2tT3=3 THEN 3280 

1710 IF T4+T5*T6=3 THEN 3280 

1720 IF T7+T8tT9=3 THEN 3280 

1730 IF Tl+T4+T7=3 THEN 3280 

1748 IF T2+T5+T8=3 THEN 3280 

1750 IF T3+T6+T9=3 THEN 3280 

1760 IF TlfT5tT9=3 THEN 3280 

1778 IF T3+T5+T7--3 THEN 3288 

1780 GOTO I860 

1730 FOR T=l TO 24 

1800 PRINT'T REU3( WHT3DU HflR VUNDETCOFF3C 
WHT3C 13SPC3CC03" 
1810 NEXT T 

1820 PRINT THOn3[3CN3CREU3[WHT3JEG UANDT 
-YIL DU PR0UE I GEN J/N":GET L$: IF Li = " T 
HEN 1820 

1838 IF Li= I "THEN RUN 
1840 IF L4= NTHEN SYS64738 
1850 GOTO 1820 

I860 PRINT T HOP13 C 7CN3E REU3C LTGRN 3UENT LI 

GE ET 0JEBLIKtOFF][UHT][ 10SPC3 

1870 IF Cl+C2=2 THEN IF C3+T3=0 THEN 212 

0 

1880 IF Cl+C3=2 THEN IF C2+T2=0 THEN 212 
0 

1890 IF C2+C3=2 THEN IF Cl+Tl=0 THEN 212 
0 

1900 IF C4tC5=2 THEN IF C6+T6=0 THEN 222 
0 

1910 IF C4+C6^2 THEN IF C5+T5=0 THEN 222 

e 

1920 IF C5+C6=2 THEN IF C4+T4=0 THEN 222 
8 

1930 IF C7*C8=2 THEN IF C9*T3=0 THEN 224 



1940 
0 

1358 
0 

1968 
0 

1970 
0 

1980 
0 

1998 
0 

2000 
0 

2010 
0 



IF C7+C9 
IF C8+C9 
IF C1+C4 
IF C1+C7 
IF C*+C? 
IF C2+C5 
IF C2+C8 
IF C5+C8 



2 THEN 

2 THEN 

2 THEN 

2 THEN 

2 THEN 

2 THEN 

=2 THEN 

-2 THEN 



IF C8+T8 
IF C7+T7 
IF C7+T7 
IF C4+T4 
IF Cl+Tl 
IF C8+TS 
IF C5+T5 
IF C2tT2 



=0 THEN 224 
=0 THEN 224 
=0 THEN 226 
=0 THEN 226 
=0 THEN 226 
=0 THEN 228 
=8 THEN 228 
=8 THEN 229 



2020 IF C3tC6=2 THEN IF C9*T9=0 THEN 230 

2030 IF C3rC9=2 THEN IF C6+T6=0 THEN 230 
0 

2040 IF C6tC9=2 THEN IF C3+T3=0 THEN 230 

2050 IF Ci+C5=2 THEN IF C9+T9=0 THEN 232 
0 

2060 IF CI+C9=2 THEN IF C5+T5=0 THEN 232 

2070 IF C5+C9=2 THEN IF CltTl=0 THEN 232 

2080 IF C3*CS=2 THEN IF C7+T7=0 THEN 234 

2098 IF C3tC7=2 THEN IF C5tT5=0 THEN 234 
0 

2100 IF C5+C7^2 THEN IF C3+T3=0 THEN 234 
2110 GOTO 2360 

2120 Cl=l:C2=l:C3=i:C4=0:C5=0;C6=0:C7=B: 
C8=0:C9=0: 

2130 PRINT THOh3r9CN3C I6CHH REU3C GR33 1 

2140 PRINT T17CH3 tCHJ CCH3 tCH3 
2150 PRINT T 16CH3CREU1 4 5 6 " 
2160 PRIMTT17CH3 CCHJ tCHJ CCH3 
2170 PRINT C 16CH3CREUJ 7 8 9' 
2180 PRINT T 17CH] CCHJ CCH3 CCH3 
2190 PRINT T 16CHHREUK7SPCItWHT]" 
2200 GOSUB 200 
2218 GOSUB 2B0:GOTO1920 

2220 Cl=0:C2=0iC3=8:Cl=l:C5=l:C6=l:C7=0: 

C8=0:C9=0 

2238 GOTO 2138 

2240 CI =0: C2=0: C3=0: C4=0: C5=B: C6=0: C7=l : 
C8 = l:C9 = l 
2250 GOTO 2130 

2268 Cl=I:C2=0:C3=0:C4=l: C5=0:C6=0: C7=i: 

C8=0:C9=0 

2270 GOTO 2130 

2280 Cl=0:C2 = l:C3=8:C4=0:C5?l:C6=0:C7*0: 
C8 = l:C9=0 
2238 GOTO 2130 

2308 Cl=0:C2:0:C3-t:C4=0:C5=0:C6=l: C7=0: 

C8=0:C3=I 

2310 GOTO 2130 

2320 Cl=l:C2=0."C3=0:C4=0:C5=l:C6=0:C7^0: 
C8=8:C9 = 1 
2330 GOTO 2130 

2340 Cl=0:C2=0:C3-l:C4=0: C5=1:C6=0: C7=l: 

C8=0:C9=0 

2350 GOTO 2130 

2360 IF CUl THEN IF T2+T3<2 AND T4+T7<2 

AND T5tT3<2 THEN CI =0: H= t : GOTO2450 
2370 IF C 2= i THEN IF T5+T8<2 THEN C2=0:H 
=2:GQTQ2450 

2380 IF C3=l THEN IF Tl+T2<2 AND T6+T9<2 

AND T5tT7<2 THEN C3=0; H=3: GOTO2450 
2398 IF C4=l THEN IF T5+T6<2 THEN C4=0:H 
=4: GQTO2450 

2408 IF C6=l THEN IF T4+T5<2 AND T3+T9<2 

THENC6=0:H=6;GOTO2450 
2410 IF C7-1 THEN IF TltT*U2 AND T8+T3<2 

AND T3+T5<2 THEN C7--Q: H=7: GOTO 2450 
2428 IF C8=l THEN IF T2*T5<2 THEN C8=0:H 
-0:GOTO 2450 

2430 IF C9=l THEN IF T7+T8<2 AND T3+T6<2 

ANO TltT5<2 THEN C9=0: H=9: GOTO2450 
2448 C5=0:H=5:GOTO 2450 

2450 IF Tl+T2=2 THEN IF T3*C3=0 AND H<>3 

THEN C3^1:GOTO3810 
2460 IF Tlt-T3=2 THEN IF T2+C2=0 AND H<>2 

THEN C2=I:GQTO3010 
2470 IF T2+T3=2 THEN IF T1*C1=0 AND HOI 

THEN C1=I:GOTO3018 
2480 IF T«1tT5^2 THEN IF T6tC6=0 AND H<>6 

THEN C6=1;GOTO3010 



2490 IF T4+T6=2 THEN 
THEN C5=l:G0T038tB 

2508 IF T5+T6=2 THEN 
THEN C4=1:GOTO3010 

2510 IF T7+TB=2 THEN 
THEN C3=l :GOTO301B 

2529 IF T7+T9=2 THEN 
THEN C8=l :GOTD30I0 

2539 IF T8-t-T9=2 THEN 

THEN C7 = l ;GOTO30I0 
25*10 IF T1 + T1=2 THEN 

THEN C7-1 :GOTO3010 
2550 IF Tl+T7^2 THEN 

THEN C1=1 ;GOrO30l0 
2560 IF T1-M7-2 THEN 

THEN E1-1.-GDTD30I0 
2570 IF T2+T5--2 THEN 

THEN C8=i:GOTO3018 
2580 IF T2+T8=2 THEN 

THEN C5=l :GOTO301B 

2530 IF T5+TS=2 THEN 
THEN C2=1:GOTO3010 

2680 IF T3+T6=2 THEN 

THEN C3=1:GOTO301B 
2610 IF T3-«-T9=2 THEN 

THEN C6=l:GOrO30l0 
2620 IF T6tT3=2 THEN 

THEN C3=1:GOTO3010 
2630 IF TI*T5=2 THEN 

THEN C9=1:GOTO3010 
2610 IF TI+T3=2 THEN 

THEN C5-1:GOTO3010 
2650 IF T5+T3=2 THEN 

THEN CI=1:GOTO3010 
2660 IF T3-tT5=2 THEN 

THEN C7=1:GOTO3010 
2670 IF T3tT7=2 THEN 

THEN C5=l:GOTO3010 
2680 IF T5*T7=2 THEN 

THEN C3=l:GOTO301B 
2630 IF CI =1 THEN IF 

2 THEN C2=i:GOTO3010 
2700 IF CZ=1 THEN IF 

1 THEN Cl=l:GOTO30I0 
Z710 IF C2-1 THEN IF 

3 THEN C3=l:GOTO3010 
2720 IF C3 = l THEN IF 

2 THEN C2=I:GOTO3010 
2730 IF C4M THEN IF 

5 THEN C5=I : GOTO3010 
2740 IF C5 = l THEN IF 
«* THEN C4=1:GOTO3010 
2750 IF C5=! THEN IF 

6 THEN C6=I:GOTO3010 
2760 IF C6 = 1 THEN IF 
5 THEN C5=1:GOTO3810 
2770 IF C7=i THEN IF 
S THEN C8=I:GOTO30I0 
2780 IF C8 = I THEN IF 

7 THEN C7"l:GOTO3010 
2790 IF C8=l THEN IF 

3 THEN C9=l:GOTO3010 
2800 IF C9 = I THEN IF 

8 THEN C8=I:GOTO30I0 
2810 IF CI "I THEN IF 

4 THEN C4=1:GOTO3010 
2820 IF C4=l THEN IF 

1 THEN CI =1 : GOTO3010 
2830 IF C4=l THEN IF 

7 THEN C7-1 : GOTO301B 
2840 IF C7-1 THEN IF 

4 THEN C4=1:GOTO3010 
2850 IF C2=l THEN IF 

5 THEN C5=l:GOTO3010 
28B0 IF C5=l THEN IF 

2 THEN C2=l:GOTO3010 
2870 IF C5=l THEN IF 

8 THEN C8=l : GOTO3010 



IF T5+C5=0 AND H<>5 
IF T4+C4=0 AND HOI 
IF T9+C9=0 FfND H<>3 
IF T8+C8=0 FIND HOB 
IF T7+C7-0 AND H<>7 
IF T7+C7-B AND H<>7 
IF T4+C4=0 F»ND H<>4 
IF Tl+Cl =0 FIND HOI 
IF T8+C8=0 AND H<>8 
IF T5+C5=0 FIND H<>5 
IF T2+C2=0 AND H<>2 
IF T9+C9=0 AND H03 
IF T6+C6=0 AND H<>6 
IF T3+C3=0 flND H<>3 
IF T9+C9=0 F»ND HOS 
IF T5+C5=0 AND HOS 
IF Tl-fCI=0 AND HOI 
IF T7+C7=0 flNP H<>7 
IF T5+C5=0 FIND H<>5 
IF T3tC3=0 AND H03 
C2tT2-0 THEN IF HO 
CI+T1-0 THEN IF HO 
C3+T3r0 THEN IF HO 
C2-fT2=0 THFN IF HO 
C5+T5=B THEN IF HO 
C4+T4=0 THEN IF HO 
C6+T6=0 THEN IF HO 
C5+T5=B THEN IF HO 
C8+T8=0 THEN IF HO 
C7+T7-0 THEN IF HO 
C9*T9=0 THEN IF HO 
C8*T8=8 THEN IF HO 
C4 + T4=0 THEN IF HO 
Cl+Tl =8 THEN IF HO 
C7+T7=0 THEN IF HO 
C4+T4=0 THEN IF HO 
C5*T5=0 THEN IF HO 
C2+T2=8 THEN IF HO 
C8 + T8=8 THEN IF HO 



2880 IF CB = 1 THEN IF C5+T5=0 THEN IF HO 

5 THEN C5=l:GOTO3010 

2890 IF C3 = l THEN IF C6+T6 =0 THEN IF HO 

6 THEN C6=i:6OTO30I0 

2980 IF C6 = l THEN IF C3 + T3=B THEN IF HO 
3 THEN C3=I;GOTO3010 

2310 IF C6 = l THEN IF C3»T3=0 THEN IF HO 
3 THEN C3=l;GOTO3B10 

2320 IF C9 = l THEN IF C6+T6=0 THEN IF HO 

6 THEN CB=i:GOTO3010 

2930 IF CI =1 THEN IF C5tT5=B THEN IF HO 
5 THEN C5=I:GOTD3B10 

2948 IF C5 = l THEN IF Cl+Tl=0 THEN IF HO 
I THEN CUl:GOTO3BI0 

2350 IF C5 = l THEN IF C3 + T9=0 THEN IF HO 
3 THEN C9rl:GOTO3B10 

2960 IF C3=l THEN IF C5tT5=8 THEN IF HO 
5 THEN C5=l:GOTO3010 

2370 IF C3=l THEN IF C5+T5=0 THEN IF HO 
5 THEN C5=l:GDTO3010 

2388 IF C5 = l THEM IF C3+T3*8 THEN IF HO 
3 THEN C3=|:GOTO3010 

2930 IF C5 = l THEN IF C7+T7-0 THEN IF HO 

7 THEN C7=1:GDTO3010 

3000 IF C7-1 THEN IF C5+T5=0 THEN IF HO 
5 THEN C5=J:GOTO38i0 

3010 PRINT"CH0nK3CN]C 1 6CH H RE<J][ GR3 } I 

3820 PRINTTI7CH3 TCHJ t CH3 CCHJ" 
3030 FRJNTT 16CHHRE03 4 5 6 " 
3040 PRINT"! 17CH3 CCH3 ICHJ [ CHJ" 
3058 PRINT"! I6CHHRE0) 7 8 9" 
3060 PRINTT 17CH] CCHJ CCHj CCHJ" 
3070 PRINT"! 15CH]CREUJC7SPC3CWHT^ , ' 
3080 GOSUB 200 
3030 GOTO 1350 

3100 IFCl+C2+C3 = 2ftNDTltT2iT3T0THENCl SilG 
2=l:C3=0:GOTO3190 

3110 IFC4tC5tC6=2flNDT4tT5tT6=0THENC4 =1 : C 
5=1:C6=0:GOTO3190 

3120 lFC7tC8tC9=ZflNDT7t-T8tT3r0THENC7 = i:C 
8=l:C3=0:GOTO3190 

3130 IFCltC4+C7-2flNDTl*T4+T7-=BTHENCl=l!C 
4=l:C7-0:GOTO3190 

3 140 IFC2tC5tC8=2flNDT2*T5+T8=0THENC2 =1 ! C 
5=l:C8=0:GOTD3190 

3150 IFC3>C6+C9=2flNDT3+T6+T9-0THENC3=I:C 
6=1:C9=0:GOTO1 120 

3160 IFCl+C5+C9=2flNDTUT5tT9=aTHENCl=l;C 
5-l:C9=8:GOTO3130 

3170 IFC3+CS+C7^2ANDT3 + T5*T7:9THENC3=l:C 

5=1:C7=0:GOTO3190 

3180 GOTO 1060 

3190 IF ClfC2+C3^2 THEN C3 = l : C4=0 : C5 -0: C 

6=0:C7=0:C8-0: C9=0: GOT021 30 

3200 IF Cl+C5+C6=2 THEN C6 = l : CI =0 : C2 =0: C 

3- 0: C7=0: C8=0: C9 = 0: GOTO2130 

3210 IF C7+CB>C9=2 THEN C9=l : C 1 =0 : C2 =0: C 

3 -0:C4=0:C5=0: C6 = 0: GOT021 30 

3220 IF CH-C4+C7 = 2 THEM C7 = l -' C2=0 : C3 =0; C 

5=0: C6=0: C8=0: C3=0: GOTO2130 

3230 IF C2+C5+C8=2 THEN CB=l : C l =0: C3=0; C 

4=0:C6=0: C7 -0: C9 = 0: GOT021 30 

3210 IF C3+C6+C3=2 THEN C3=l : C 1 =0; C2 =0: C 

4=0:C5=8:C7=8: C8=0: GOT021 30 

3250 IF Cl+C5+C9=2 THEN C9=1;C2=0:C3^0;C 

4 - 0:C6=0:C7 -0: C8 = 0: GOT02 1 30 

3260 IF C3*C5tC7=2 THEN C7=l : C 1 =0; C2 =0; C 
4=0:C6=0:C8=0: C9=0:GOTO 2130 
3270 GOTO 1060 
3280 GOSUB 208 

323B PRINT-rHOriH 8CNJ[RE«JH CYN3TI D" ; :PRI 
NTTI* 

3300 PRINTTHOnn 7CNK38SPCJ" 

3310 PRINT"! HOWIC 3CN JE REU K LTGRN] Ht=tLL0JS 

flSfl DU UflNDT ,y IL DU FR0UE EGEN " ; GET LI: I 

F Li=--THEN3310 

33Z0 IF L*="N"THEN SYS64738 



36 



3330 IF L*="J"THFN RUN 
3340 GOTO 3290 
3350 REfl * xxxxxxxxxxxxx 
3360 REfl * UDSP1YKNING * 
3370 REfl xxxxxxxxxxxxxx 
3380 POKE 53281 ,3 
3330 POKE 532S0.3 

3100 PRlNTTHOriK6l?23««"WWwwww 
xxxxxxxxxxxxxxxxxxxxx ": 

3110 PRINT *C REYJT LTR£Q][ 1 2SPC3KRYDS OG 
BOLLEC 1 2SPC3C OFF3C GR2 3*" ; 
3120 PRINT TGR2]C0fF]*xxKxxxx«x»xxxxxxx 
xxxxxxxxxxxxxxxxxxxxx' : 

3430 PRINT r HOflJC 1CN3C GR23 xxxxxxxxxxxxxx 
xxx*xx*xxxxx:xxxxxxxxxxxxxx "j 
311B PRINT x[ REUJT LTREDIC 3SPC 3FROGRflf!ERE 
T flF THOMAS SBNDERGflflRDt 2SPC3E OFF3I GR2] x 

3450 PRINf'f GR2]C0FF]xxxxxxxxxxxxxxxxxxx 
xxxxxxxxxxxxxxxxxxxxx ; 

3460 PR I NT" r HOilH 18CN3C GR2 lxxxxxxxxxxxxx 

XXXJIXXXVXXXXXXIXXXXXXXXXXX"; 

3470 PRINT "*r REU3CUHT][ 5SPC3FfiERDIGT 0NS 
DAG DEN B/5-l385r5SPCJfOFF3rGR2J* 'J 
3480 PRINT "f GR23C OFF ]xxxxxxxxxxxxxxxxxxx 

XXXXXXXXXXXXXXXXXXXXX"] 

3430 PRINT "t HOH3C 2ICN3C YEL3 T 38C/I 3 "1 
3500 PRINT"fREU3CYEUtt/J3[UHT3t 10SPC 3f1fl 
DE IN PENflfiRKl I3SPCJCOFF3C YELJtC/KJ*: 
3510 PR I NT "T YEL3C OFF3 C 38C AJ) "{ 
3520 GOTO 110 

3530 IF T2+T5=2 THEN C8=1:GOTO720 
3540 IF T7*T3=2 THEN C6=1:GOTO720 
3550 GOTO640 
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TRACE 

INDSENDT AF 
HENRIK MEYER 
RUNDDELEN 1 
6040 EGTUED 



Til Commodore 64 

10 POKE53280.7:POK£5328I ,7; P0KE768 . 123 
20 PRINT T CLR3CCN3CBLUH3SPC3 w**xxx*m 
xxxxxxxxxxxxxxxxxxxxxxx" 

30 PRINTT 3SPC]xf4SPC)TRftCEE4SPC3CBflSIC- 
S06NING K 4SPC3*'' 

40 PRINT'C 3SPC)xxxxxxxxxxxxxxxxxxxxxxxxx 
xxxxxxxxx 

58 PRINT* f 3SPC3*C32SPCJ»" 

50 PRINT t 3SPC3*f 5SPC3LAUET AFC 2SPC3HENR 

IK P1EYERCSSPC3*" 

70 PRINT"[ 3SPC]«32SPC3I" 

80 PRINT" C 3SPdxxxxxxxxxxxxxxxxxxxxxxxxx 

-nxxxxxxxx' 

90 PRINT 'C 3SPC3*E 32SPCJX" 

100 PRINT C 3SPC3*C 4£PC]SPORINGSHflSTIGHED 

5 I . . I5C4SPC3*" 

i 10 PRINT C 3£PC]X[ 32SPC Jx M 

120 PRINT "t3$PClxxxxxxxxxxxxxxxxxxxxxxxx 

TXXXXXxXxx" 

130 PRINT" C3SPC]x EFTER RUN/'STOP-RESTORE 
- SKRIU: x" 

110 PRINT'T 3SPC]xC 32SPC3*" 

150 PRINT" C 3£PC3*C 6SPC JSYS 49152C 17SPCJ* 

160 PRINT'C3SPC3*C6SPCJPOKE 2 ,XC 18SPC3*" 
170 PRINT"t3SPC3xt32SPC]x" 

1 80 PR INT "f 3SPC 3 Xt 6SPC JX=SPOR I NGSHAST I GH 
EDC 7SPC3*" 

190 PRINT t 3SPClxxxxxxxxxxxxxxxxxxxxxxxx 
*xxxxxxxxx" 

200 INPUT r2CN3t3CH3SPQRINGSHflSTIGHED 
X 

210 F0RI=12K4896T0l2*4898-t-135 
220 READfl;S=S+A 
230 POKE I .A 
210 NEXT I 



250 IFSO17193THENP0KE788 .43: PRINT'T COJt 

3CH3FEJU I DATAHLINIERNE 1 1 ' : END 

260 SYSl2*4896 

270 P0KE2.X 

280 P0KE788.49 

230 NEW 

300 DATA! 20. 173, 2 I .3.281 ,234 . 208 . 12 . 169 , 
132 

310 DATA141 .21 .3 .169.36. 141 ,20,3,208.10 
320 DflTfllB9.43.141 .20 .3 . 163 . 234 . 141 ,21 .3 
330 DATA 88,169.0.133.2.96,165.157,48,83 
340 DATA 165, 2.240.13. 201 .16,176.9,168.1 
62 

350 DATA 62,232,208.253,136.208.248,165, 
58, 133 

360 DATA 252.165.57.133.251.160.0.162,8. 
169 

3?0 DATA 48.133.253.165.252,221.127.192, 
144 .28 

380 DATA 208.7.165,251.221.126.192,144.1 
9.58 

390 DATA 165.251.253.126.192.133.251.165 
.252,253 

400 DATA 127. 192. 133. 252. 230. 253. 208, 221 
.165,253 

410 DATA 153.0.4.169.1.153.0,216,200.202 
420 DATA 202.16.202,76.49,234.1.0.10.8 
430 DATA 108,0.232,3.16.39 



KONTROLSUM FOR TRACE 



10 


109 


20 


148 


30 


06 


40 


203 


50 


145 


60 


151 


70 


145 


00 


209 


90 


145 


100 


228 


110 


145 


120 


203 


130 


55 


148 


145 


150 


149 


168 


150 


178 


145 


180 


204 


190 


203 


200 


251 


210 


39 


220 


69 


230 


77 


240 


203 


250 


10 


260 


128 


278 


77 


280 


215 


290 


162 


300 


56 


310 


106 


320 


172 


330 


183 


348 


0 


350 


212 


360 


55 


370 


207 


380 


108 


390 


48 


400 


41 


418 


133 


420 


35 


430 
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f.JO 



Til Commodore 64 

1 REN xxxxxxxxxx xxxxxx^xxxxxxxxxxxxxxx 

2 RUN CLF.flR SCRCCN AND SEl COLOUR 

3 REM xxxrxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

4 PRINT'LCI RKUBUO"; :P0KF5379fl , 8: POKE5 
3781 .0 

5 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

6 REN READ NO AMD ML* 

7 REfl xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

8 READ NH.HI 4: I FNO220ORNO <1TMENER= 1 : GOSU 
07 1 

9 ninPF*(H03.RE4lM03: I F |4L i = " " T HENERR = 2 : G 
0SUB71 

10 REM xxxyxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

11 REN REAR FRiC I -NO 3 ,RC*C 1 -NO 3 



17 REN xxxxxxxxxxxxxxxxyxxxxxxxxvxxxxxx 

13 FORI = 1 TONO: READPR4CL 3 .RE4CL 3: NEXT 

14 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

15 REM-mENU 

16 REfl xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

1 7 PR INT "I CI.R 3 "HL t : PR I WT : FORI. = 1 TONQ : PR I N 
TR I GHT* ( "B "tN I D* CSTR4 t,L J ,2 ) .2 J: NE* ] 

19 PRINT "C MOMJC CN3": FORL = 1 TONO: PR I NT TAB C 
3 3PR4U 3:NF.XT:PRINT*'tHOfi3i;CN3":FOPl =1T0N 
O 

19 PRJMnnBC20JRetCU }:NEM 

20 FORI. .--NO TO20:PRINI:NEXI 

21 REN *"***xx'X*x*xx*xx>xxxx**xrxx*** 

77 REfl INPUT NUMBER OF PR0GRAP1 TO LOAD 
23 REN ^WW*?WWWW"WW»HHWW? 
21 PRINT "INPUT NUMBER OF PROGRAM: *( CUJ" 
t 

25 P0KE19.1: INPUTA4: P0KE19 .0: n=UflLCA* 3: I 
FA=8THEN14 

26 1FA<10RA>NO THENER=3: G0SUB71 : G0TO1 1 
77 IFA=1THEN13 

79 REM XXX xxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
23 REM FIND PROGRAM 

30 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

31 PRINT "E CLRJ"; 

37 IFCPEEKC1 3ANO16 3=0THENPRlNT"tCLR3PRES 
S STOP ON TAPE" 



38 



33 IF tPEEKt 1 JAND16 J-0THEN33 

31 PRINT t CN3PRESS FORWARD ON TAPE" 

35 J.FCPEEKC 1 JAND16 JTHEN35 

36 PRINT 'CCNJSEARCHING FOR ";PRitAJ 

37 JFREiCAJO"' THENPRINT'CCNJREMARK: ";R 
EiCA J 

3B L=TI:P0KE132.1 

33 iFTI-L <Cfl-l 3*5B0THEN39 

10 POKE1 ,CPEEK(1 JOR32) 

11 rRINT"CCNJPPESS STOP ON WE" 

12 IF<PEEK(OPNP16 3 = 0THEN12 

13 REI1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
11 REP INPUT BASIC 02 LOAD OR TURBOLQAO 
15 REM xxxxxxxxxxxxxxxxxxxxvxxxxxxxxxxx 
15 PRINT CCLRJBPSIC U2 LOAD OR TURBOLOP0 

IB/T J: n CO] " ; : P0KE13 . 1 : J NPUTLOi: P0KE1 D 

.BiPRJNT 

17 IFlO*s-B"TH£N50 

18 ]FL0ls"T"THeN6B 

19 ERR=1:GOSU071:GOTO16 

50 REH XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

51 REM BPSIC 0? l.OAP 

57 REfl XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

53 PRINT "t CLR3WHEN LOAOEO. DO YOU WISH T 

HE PRUGRPM: ":PRINT t CNJTO RUN" 

51 PRINT'tCNJOR TO STOP CR/SJ: *CCUJ"*; 

55 P0KE13.1: INPUTlOi:POKEl9.0: PRINT: COi* 
"LOAD" 

56 IFI 04*"R"THENC0 = I3t:G0TOS9 

57 ]FL0ir"S"THENC0=13:GOT053 

58 ER^5:GOSUB7i:G'OTn50 
53 G0T0.61 

60 REM StXX>%XXX%X>XXxXXXXXX%XXXXXXXXXXX 

61 REPl TURBO LOpp 

62 REN XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

63 C0i = ~«-L":CO=l3 

61 REH xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

65 REfl LOPO 

66 REH xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

67 PRINT "L CLRJ"; 

68 IFRE4CP )<>~"THENREi(A3="REnARK: " tR£4 
CAJ 

63 PRINTRE4CA 3"t 7CNJ CHRi 1 1 3 J; CO*; U'Ri t 

3l3;PRitPJ;CHRtC3i j; "CH')P3" 

78 F0KE13B . 1 : P0KE631 .CO: END 

71 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

71 REM ERRORS 

73 REH *xxxxx*xxxxxxxxx?xxxxxxxxxxxxxxx 

71 PRINT "L CLR3 " ; 

75 IftRMlHEMl'RIMT REflD ERROR . NO >0 AND 
<7l ":piJKEI3H.fl:P0KE631 ,76:pOKE63? .73 

76 I FER - 1THENP0KE633 .83: P0KE631 .81 ; P0KE6 
35.13: FOKE636 . 18 : FfJK £637 . 5 1 : POKE63R , l 3 

77 JFER^UHENEND > 

78 I FER=7THENPRINT "READ ERROR. TAPE MUST 
HPUE p HEADLINE. ':P0KE196.8:P0KE631 .76 

73 I FER =?THENP0KE632 .73: P0KE633 .83: P0KE6 
31 .81: P0KE635 .19: P0KE636 .18: POKE637 . 55 

80 JFER=7THENPOKE630 .13: END 

81 J FER =3THF_NPR] NT "OUT OF RANGE ERROR."! 
PRINT -tCNJriUST BE BETWEEN 1 -~N0:G0T081 

82 l FER *1THENPR INT "SYNTAX ERROR. ANSWER 
nUST BE T OR B":GOTOB1 

91 IFER*5THENPR1NT "SYNTAX ERROR. ANSWER 
HUST BE R OR S":GOTO01 

01 PRINT "LCNjPUSH ANY KEY TO CONTINUE." 

85 WP1T203. 63: POKE198.0: RETURN 

86 REN XXXXXXXXXXXXXXXXXXXXXXXXXXXXX XXX 

87 REfl REMARKS 

88 REH xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

83 NO = NUMBER OF PROGRAMS ON TAPE 

90 RANGE: 0-70 

91 PRitXJ=FRUGRPH NUMBER X 
37 LENGTH: 8-16 

93 RE*LXJ*REMARK Nt TIBER X 
91 I ENGTH: 0-13 

95 WRITTEN 1385 BY 

96 HORTEN KNUPSEM 



37 BAI DERSUEJ 3 

38 UK- 7000 FREDERKTP 

100 RED xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

101 REfl PPTA FOR NOCNunBER OF PROGRAMS 3 

307 REH XXXXXXXX*XXXXXXXXXXXXXXXXXXXXXX 

183 DATA NO 

101 REH xxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx 

105 REH UFH A fOR HL-t IHEAOL iNE 3 

106 REH xxxxxxxxxxxxxxrxxxxxxxxxxxxxxxx 

107 DATA HfcAULlME 

100 REfl x*xxxxxxxxx**xxx*xxxxxx* 

1B3 REM DATA FOR PROGRAMS PNO REMARKS 

110 REH xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

111 DATA PROGRAM! 01 .REHARK 01 

112 DATA PROGRAM 02 .REMARK 02 

113 DPT A PROGRAH 03 .REfl ARK 03 
111 DPTP PROGRAM 01 .REMARK 01 

115 DATA PROGRPH 05 .REMARK 05 

116 PpTp PROGRPH 06 .REMARK 06 

117 DPTP PROGRAH 07 .REflpRK 07 

118 PAIP PROGRpH 08 .REHPRK 88 

119 DATA PROGRAH 03 .REMARK 09 

170 DP TP PROGRpH I0.REHPRK 10 
121 DATA PROGRAM 1 1 .REMARK 11 
127 DATA FROGRAH 12 .REMARK 12 
123 DPTP PROGRAH 13. REMARK 13 

171 DATA PROGRpH. 11 .REMARK H 
125 DATA PROGRAH 15. REMARK 15 

176 DP7P PROGRpH 16.6EMPRK ie 

177 DATA PROGRPH 17. REMARK 17 

178 DPT A PROGRAH 18.REMPRK 18 
173 DATA PROGRPH 19. REMARK 19 
130 DATA PROGRAM 70 .REMARK 20 



KONTROTSUn FOR QUICKFIND 61 
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15 


2 


9 
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15 


1 


161 
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15 
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115 


7 


IS 


8 


30 


3 


37 


IB 


233 


11 


18 


12 


233 


13 


85 


11 


233 


15 


278 


16 


733 


17 


37 


10 


131 


ia 


713 


70 


703 


21 


763 


77 


71 


23 


733 


21 


153 


25 


181 


26 


137 


77 


183 


7W 


733 


?a 


8 


38 


733 


31 


171 


32 


11 


33 


37 


31 


183 


35 


63 


36 


60 


37 


185 


38 


101 


33 


118 


10 


158 


11 


237 


12 


37 


13 


233 


11 


51 


15 


733 


16 


83 


17 


112 


18 


I6l 


13 


13 


58 


233 


51 


213 


52 


233 


53 


21 


51 


89 


55 


76 


56 


67 


57 


13 


58 


213 


59 


213 


68 


233 


Gl 


123 


62 


233 


63 


57 


61 


233 


65 


207 


66 


233 


67 


171 


68 


125 


63 


111 


70 


121 


71 


233 


72 


110 


73 


739 


71 


I7l 


75 


87 


76 


115 


77 


11 


78 


57 


73 


150 


80 


47 


91 


73 


82 


17 


83 


33 


91 


181 


85 


83 


86 


239 


87 


196 


88 


733 


83 


83 


30 


1 


91 


151 


92 


66 


93 


228 


31 


69 


95 


223 


36 


28 


97 


53 


98 


20? 


100 


197 


101 


231 


107 


1 37 


103 


61 


101 


137 


105 


51 


106 


197 


107 


221 


108 


137 


183 


131 


1 10 


137 


111 


171 


112 


i;3 


1 13 


175 


1 H 


177 


115 


173 


1 16 


181 


117 


1S3 


Mfl 


105 


1 13 


187 


120 


171 


121 


173 


127 


175 


123 


177 


121 


173 


175 


1R1 


176 


155 


127 


185 


178 


187 


173 


1A3 


130 


173 




DATABASE 

INDSENOT AF 
BRUNO BRBSTED 
5TRANDAGERUEJ 12 
4970 R0DBY 



Til VIC-20 



0 GOTO10 

1 : DATABASEA»IC-20 

2 : UDEN UDUIOELSE ER 

3 i DER PL ADS TIL 20 4 : ENHEPEP . 

5 : HAN KAN SBGE PAA 

6 | ALT , OG HAN KAN 

7 : N0JES MED DE F0R- 

8 : STE TEGN. 

3 : CCD BRUNO BR0STED 

40 PR I NT T CLP3C WHT3 "CHRiC I 4 3i P0KE657 1 128 
=X=19iP0KE36879.B 
28 STi = T22S/*]" 
38 DIfiPAiCX.6 3 

10 print '[ clrk bcn3c 6spck 5/u3ent lidtp" 
58 fora=0tq6: for j =0tox: dait i , a 3= **-" 1 next 
;nekt 

68 printtclr3cuht3tsti;t3spc3cs/h3uil 

ken funkti0nc3spc]~!st*;"rcn] 

78 print t 2spc]1 = cs/s3kriue fil":print 

r2SPC)[CN32 = rs/S38GNING-:PRINT"f 2SPC] 
TCN33 = [S/L30A0E FILER 

80 PRINTTCN312SPCJ4 * SAUE FILFRC6SPC3C 
CN3C2SPC3S = SLUT 

SB PRINT rCN3";ST4:"rS/T3ftST 1.2.3.4 ELL 
ER 5C2SPC3 TSTt; 

180 GETfiii A=UAL(Ai 3: I F A >50RA < 1 THEN1 80 
i 18 IFA = 30RA = 4THENPRINTT2CD]£6SPC3UENT 
LIDTC 7SPC3C CO 3" 

120 0NAG0T0138, 4B0 .400 . 440 : END 

130 FORI=0TOX: tFNOTDAiC I .0 3 = " -"THENNEXTt 

• J RINT CCLR3C6CN3"STi;"rS/I3KKE FLERE FRI 

E FILERr"(STi:UAIT198.1:GOTO60 

148 PRlNT"rCLR3"'5Ti"rS^3IL NR . ~ 5 I : PR1N I 

STi;T 3CN3T 

153 PRINTTS/F30RNAUN: "DAK I ,0 3*'[ CQJ" 

168 INPUT'TS/FJORNAUN-jDAiEI .03 

170 PRINTT S/E3FTERNAUN: " DAi t ] , 1 3T C03 " 

180 INPUT "T S/Z 3FTERNAUN" ; DAiC i .1 J 

190 PRINTTS/G3ADE: "DAiU.23T.COJ" 

280 INPUTTS/G3ADE~PDAiCI .23 

210 PRINTTS/P]QSTNR.t2SPC3*"DAiCI ,33TCO 

V 



220 INPUTTS/P30STNR-~;DAi(I.33 

230 PRlNT"r?/B3Y: "DAiC I .4 3T COJ** 

240 INPUTTS/BlYTDAiCI .4 J 

250 PRlNTTS/TJLF.t2SPC3"0AiCl .5 3TC03" 

260 INPUT'7 S/T3LF.";DA*C I .53 

270 PR I NT T S/B 3 EH . t 2SPC 3 "DAIC I .6 3 'C C03 " 

280 INPUTTS/B3Efl.":DAiU .6 3 

290 FORA=0TO6: IFUAiC I ,S ) = " "THENDAi CI ,A)= 

300 NEXT 

310 GOSUB320: G0TO68 

320 PRI NTT CLR)"STi"l S/F ] IL NR . "S I J PR IN T 
STij : PRINTDAit I ,0 3" "DAiC 1 ,1 3:PRINTT CNJ 
'□A«CI .23 

330 PRINTTCNJTJAiU .33*" "iDA*( I ,4 )ipRI 
NTT CNJ DAiC I .5 3: PRI NTT CN 3 "DAiC I .6 3 
340 PRINTSTi;T3SPC][S/S3 - f S/S3LETTFS" 
s PRINT" T CN 3C 3SPC3C S/0} - f S/0 IK" s PRI NT C 
CN JC 3SPC3C S/R3 = f S/R3ETTES 
350 PRINTSTi; "f SxT3RYK CS/S3. rS^OJ ELLE 
R CS/R3C5SPC3* :STi; 

360 GETSt: IF?4-"0"3MENRETURN 
378 IFSi-"R THFN148 
380 IFSiO S-THEN36B 

330 FORA=0TO6:DAiCI ,A 3=" i NEXT : GOTO60 

400 0PF.N1 ,1.0 . "DATA ' S" 

<U0 F0RA=8T06:F0RI=BT0X 

420 INPUT" 1 .DAiC 1 .A J 

430 NEXTI:NEXTA:CL0SF1: GOTO60 

440 0PEN1 . 1 .1 ."DATA' S" 

450 FORA=0TO6:FORI=0TOX 

<»60 PRINTbI ,DAiC I .A 3 

470 NEXT! : NEXTA: CL0SE1 : GDTD60 

480 fORSr0TOI80: NEXT : PR INT "f CLRJ "STi "t S/ 

S30GNING EFTER FILERC 3SPC3 "ST* 

49B PRINT' CCD 3 1 = f S/F 30RNAUN" I PRINT "f C 

N3 2 = CS/€3FTERNAUN":PRINT'TCN3 3 = CS/ 

G3ADE/tS/U3EJ":PRJNT"fCN3 4 = t S/f 30STNU 
MflER 

500 PRINTTCN] 5 = C S/B3 Y": PRINT T. CN 1 6 
= I S/T3ELEF0NNUf1MER : PR I NTT CN3 7 = tS/B 
rni.-:PRINTTCN3 8 = CS/T3IL0AGE TIL flEN 

510 PRINTSTi: TS/TJAST 1 TIL 8CI0SPC] :S 

520 GE TSi : S =UAL CS4 3-1 : IPS <80RS >70RS <> I NT 

CS3THENROTO520 

530 IFS=7THEN60 

540 PR I NTT CLR3 " I Sli ; T S/I 3NDTAST DE KEN 

DTE DATA- 1ST* 

550 INPUTX4: FORI =0TDX 

568 IFX*=LEFTtCDAiC I .S3 .LENCXi ) 3THENGDSU 
B320 

570 NEXT:GOTO60 




RACERICBRSEU 

INDSENOT flF 

PER H0FP1ANN DLSEN 

ALGADE 114 

4760 UORD ING80RG 



Til VIC-20 

B REI1 LAUET AF: 

I REfl PER HOFFMANN QLSEN 

10 SP = 1 0: PR=55: A I =36874 : A2 =36875: A3 = 3687 
6: A4=368?7: A5=36878: A6=384B0: A7=7680 : A0 = 
36873 

20 POKE A8. 24: PR I NT TCLR3 :GOSUS10B0 

30 GOSUB5080 

40 A=10:B=2:POKEA5,6 



50 GETAt 

60 P0KEA7+ A+22X8 . 33 

70 P0KEA6+A+22*B.2 

75 P0KEA1 ,155+SP 

80 A rft+AA: B=B+BB 

38 IF A>21 THEN A=2l:GDTD30B 

108 IF B=23THEN B=22:GOTO3B0 

110 IF A<0THEN A=0:GOTO300 

130 IF PEEKCA7+A+-22*B3=33THEN300 

140 IF PEEKCA7+A+22*B)=35THENGOSUB12000 

150 P0KEA7tA+22"B.C 

160 POKEA6+A+22»B.0 

170 RTx-RT*f l: PC=PCt .216 

180 IF Ai='T THENAA=0:BB^-l:C=27 

190 IF Ai = T1"THENAA = 8:BB = UC=28 

200 IF Ai=' K THENAA=1:BB=0:C=29 

210 IF Ai="J THENAA = -UBB=B:C=30 

220 PR I NT * E" H0(1 3 C BLK 3 SCORE : C GRN 3 ' RTx : PR 1 N 

T" f BLK3FR0C . : t BLU3 INTCFC3TC03^ 

230 IF PC>2THENZ=Zt2l:GOSUBUB00 

240 IFPOPRTHEN3B00 



40 



250 G0T05B 

300 P0KEfl7+fli-22sB.42 

310 PQKEfl6+f1+22;*B,B:PQKEAI ,0 

320 POKEfl5.4:POKEfl4.208 

330 FOR T=l8TO0STEP-l;POKEfl5,T:FORY=BTO7 
: P0KEft6tflt22j;e .Y: FORU=l TO 1 0: NEXTU .Y .T 
3^0 PQKEA1 ,0 

3S0 GUI 01000 

1000 PRINT F HQflJC 1 1CN3C 8CKJUEMT I " 

108! P0KE52 .28: P0KE56 .28: FDRfl =7168TD?6?9 

t POKEfl , PEEKCfi 1 25600 ii NEXT E P0KE36869 . 255 

1010 FOR fl=lT07:READB:3=B*8t7168:F0RC=BT 

DBt7: REflDD: POKEC .0: NEXT: NEXT 

1020 RETURN 

1030 DflTfl27.24.213.255,2l9.60.255,255,21 

9.28.213,255.255 ,60 .219.255.213.21 

1 040 DRTA29 . 238 . 238 .116. 255 ,255 .116. 238 . 

238 ,38 , 1 19 , M 9 ,46 , 255 . 255 . 46 . 1 1 3 , 1 1 9 

1 050 DPTA33 ,255 , 153 4 153 ,255 .255 . 153 , 153 . 

255.42,148,65.42,156.25.84 ,50 ,73 

1060 DPTA35 .0 .62 ,93 ,93 .62 , 28 .8 .28 

2000 POKEfll ,8:P0KEfl5.15 

2010 FDRI=lTO3:pOKEfl3.200i FORYMTOSB'NEX 
T: P0KEP3.8 

2020 FORY=1TO500:NEXT:NEXT 

2830 P0KEA3 .220: FORT=1TO300: NEXT : P0KEfl3 , 
0: POKEfll . 1 69: RETURN 

3000 GOSUB20800:PR=PR+5:GOSUB12060iRT^=R 
Tx+1000:sP=SP-2:PK=0:1F SP<1THEnSP=1 
3010 GQTOt0ia 

■4000 LI=LI-l:IF LI =0THEN21008 

4010 IF L I = I THENLt= " " 

4028 IF LI=2THENL*- E " 

4030 PRINT T CLR] : PC=0: PK=8 

4048 PRINT T HONK BLK 3 SCORE; t GRN3 RT*:PRI 

NT rBLKJPROC. :[BLU] INTCPC ) T OJ3* 

-»050 PR I NT "T HONK BLKK 12CH3CARS: EPUR3 L 

•*;PRINT' [H0|1]CCN3i: IZCHHBLKJQUflUtBLU]' p 

R"t CUJ* • 

4060 PRINT' rH0nj[2CM)[REQ] Ml III III ICBtK 
1 RED] f I I I II I II I UBLK3" 

4070 6OSUBZB08B; flft=0: BB=1 I GQSUB2800; 2=20 
:C=28:GOTO40 

5000 PRINT C CLR3 t BLK3C 2SPC3C REU3 C 4SPC3C S 
/U3tBS/*]tS/I3 

5010 PRINT "f BLK3 1 2SPC3C REU3 [C/imC/tS C 
S/-3LABYRflCE[ S/- 3 " 

5020 PRINT' (BLK3C2SPC3CREU] [ C/T13C2SPC3C 

S/J 3C8Sy*;HS/'K3" 

5030 IF RT*>SCxTHENSC>t=RTx 

5040 GQSUB20000 

5050 PRINT TCNJC RED J 1 1 II 1 1 1 II II I I IIIBLK3 

r 

5051 PRINT'fCN3C5CH3'I' = CBLU3UP" 

5052 PRINT "EBLK3I 5CH3 TV = [ BLU ] DOWN 

5053 pRlNT''rBLK3t5CH3'J' = CBLU3LEFT 

5054 PRINT f BLK J t 5CH3 ' K ' = C BLU 3 RIGHT 
5068 PRINT "t CN3C 6CH 3C RED] It BLK 3 =C4SPC][ 
6RN31 t BLK3PTS" 

5070 PRINT T 6CH3C YEL3»tBLKJ =C2SPC3CGRN3 
208 [BLK3PTS: PRINT 



5080 PR INT "NEW SCREEN = [GRNJ1BB0 t BLKJP 

5030 PRI N T T YEL ][ CN ] opck « bubbo BOBBtfttim u« 

BLK 3 " 

5100 PRINT f 2CH3SCORE: RTx: PRINT C 2CH3HI 

GH : SCx 

5110 PRINTTCNJL5CH3CPURJHIT ANY KEYCREU 

H" 

5120 CC=1 
513B GET fl* 

5110 PRINT fCOJ' ;HIDi( f BLK3C WHT J[ RED] [ C 
VNKPUR3C GRN31 YEL3" .CC.l 3 75CH3HIT ANY K 
EYCREU3 I - : CC=CCt I : TFCC>9THENCC=1 
5150 IF fli = THEN5130 
5160 GQSUB20B00 
5178 LI=3:l* = T C " 

5180 RT> -0: SP=10: PR =55: PRINT* T BLK3 : GOTO 
4030 

11000 IF PK= 1 THEN RETURN 

11001 PK=J 

11005 P0KEA1 ,0:POKEfl5, 15 

11010 FOR T=8T021:PDKEfl7+r + 22*lB,29:pOKF 
«6-rT+22*i0.B 

11020 FOR Y-l TO5:NEXTY:POKEfl7tTi?2*10.3 
2 

11030 P0KEA1 . 168 + T: IF T = 1 1 THENG0SUB1 1 05 
8 

11840 NEXT :P0KEF15. 6: RETURN 

11050 POKEA7-U0+22X10.35: P0KEA6* 10+22x18 

.7: RETURN 

12008 P0KEA1 .0:PK=0 
12018 P0KEP5.15 
12020 FOR Y=1TO20 

12830 FOR ]=128T0254STEPY:F0KEfl3.T:NEXT: 
NEXT 

12040 P0KEA3 .0: P0KEA5 , 6 

12050 RT* ~RT-«*200: RETURN 

12068 P0KEfl5,I5 

12078 FOR T^0 TO 55 

12080 POKEft3.150tT 

12090 IF T>35THEN P0KER2 . 1 28+T 

12100 IF T>2BTHEN PQKEfll , 128+T 

12128 NEXT 

12130 POKEA3.0 

12140 P0KEA2 ,0 

12150 POKEfll .8 

12160 FOR T=254T0128STEP-1:POKER4.T:FOR 
Y=l TO580STEPT:NEXT:NEXT 
12178 P0KEA4 ,8 
12IB8 POKEflS .6 
12198 RETURN 

20000 FOR T=l TO10: GETR1: NEXT: RETURN 
21008 PRINT~rH0|13C l8CN3C6CH3GflnE OUER":C 

r=i 

21018 FOR T=a TO 200 

21020 PRINT TC03 :niDiC r BLK3tUHT3t REO.H 
CYN3CPUR3EGRN3C YEL1 .CC. 1 ) T 6CH3GflHE DUE 
R" : CG=CC+ 1 : IFCC>8THENCC=1 
21830 NEXT:GOTO5800 




SOLITAIRE 

INDSENDT r»F 
BRUNO BR0STTD 
STRANDAGERUEJ 
4970 R0DBY 



12 



Til VIC-20 

0 G0T05B 
5 : 

10 SOLITAIRE 

28 TIL UIC-20 UDEN UD 

30 UDUIDELSE 

40 CCS BRUNO BRflSTFD 

45 : 

*50 A = l 

60 PDKE36879.8 
50 DJMTXf7.7) 

80 PRINT T CLR3E UHTK 6SPCTS0LI TAJRE 

90 print rrNji2spc]0 1234567 

IMPRINT TCNJE2SPC] If 5SPCJC 5/0) [S/Q] I 
110 PRINT 7 CN]{ 2SPC 321 5SPCJES/Q] tS/QJ [ 

s/ai" 

120 PRINT -TCNJt2SPCJ3 ES/Q) JS/Q] ES/QT 
fS/Q] [S/QJ ES/Q3 rS/Ql' T 
130 PRINT TCNH2SFC31 fS/QJ ES/TJ] ESxQl 
rS/UJ CS/QJ [S/Q3 [S/01- 

H0 print rrNK2spc]5 rs/nj ts/ai cs/oj 

rS/O] ES/Q] ESyQ] [SyQJ" 

150 PRINT rCNJIZSPC36C5SPC3(S/G3 ES/Q3 C 

168 PRINT rCN]t2SFC]7[5SPC][S/Q] ES/Q) [ 

170 IFfl-lTHFNGOSUB1000:GOTO80 

1B0 PRINT rCNK2SPC]UR DU SPILLF J/N" 

190 GETS*: IFSi= N' THENEND 

200 IFS*<>- J 1HF.N130 

210 PRINT r COU20SPC3 ' 

220 GOTO520 

120 DATA -5,-5.5.5.5.-5.-5 

430 DATA -5.-5.5.5.5.-5,-5 

440 DATA 3.5. 5 .5.5.5.5 

450 DATA 5.5.5.8.5.5.5 

460 DATA 5.5.5.5.5.5.5 

470 DATA -5,-5.5.5.5.-5,-5 

400 DATA -5.-5.5.5,5.-5.-5 

430 FORR = 1T07:FORA = 1T07= REACTOR . A 3; NEXT 

: NEXT: RETURN 

520 F0RQMT031 

530 PRINT f H0M3C 18CN1E 22SPC J[ COT : : INPUT 

F LYT FRfl :C*;IFC»= THEN850 
540 IFCi= S THENRUN 
550 IFLENEC* 1O2THFN850 

560 IFUALCLEFT4CC4 , 1 3 1<1 ORUAL CLEFT *C Ci I 
)3>70RUALrRIGHT4fC$.t 3 3O0RUAL fRIGHTttCi 
-1 3 3>7THEN858 

570 PRINT ! 2C0TE1/CHJ TIL' : i INPUTDi: IFDi 

THEN850 
580 IFDt= 5 THFNRUN 
590 TFLENC 04 3O2THFNB50 



600 IFUAL CLEFT *( D* , 1 3 KIORWK LEFT1CD* , I 
1 )>?ORUALfRIGHri(Oi.l 3 1 < I ORUAL f R I GHTi C D* 
- 1 33>7THEN350 

610 E "UAL C LEFT iCCi , 1 3 3: F=UAL(R IGHTt CCi , 1 
1 3: G=UAL CLFFTi CO* . I 3 1: H=UALtRI GHTUD4 . 1 3 

I 

620 IFGOEANQF OHTHEN850 
630 IFT*(£.F3O5THEN830 
640 IFT*CG.H)O0THEN858 
6S0 IFC*=D*THEN850 
668 IMNTfABSUE+G V233 
670 JMNTCABSr C.F + H3/233 
680 IFTXCI . J 3O5THEN850 

S90 X=F: Y=E: GOSUB740: PRINT r S/UJ " i X=J: Y= 
I : GOSUB740: PR I NT r S/VJJ t X=H: Y = G: GOSU0740 
: FR JNT T S/QJ 

700 T*(E.F 1=0: Txfl ,j j%0: Txf G ,H 3=5 

718 PRINT f HOpt 31 20CN3FLY TN J NG NR. :Q:PRI 

NT FORI GE TREAK :C*; Hi. :D»; 

720 NEXT: IFT>tf 4. ,4 }-5THEN750 

730 GOTO808 

710 P0KE781 .2tY*2:P0KE7B2,2+X*2:SYS6552B 
: RETURN 

750 FA* = f UHT3C CYN3E PURJE GRN3C YEL J " : FOKF 
36879.9 

760 PRINT I HOni : :FORA-0TO100:FRINTLEFI1. 
TFAi ,r JNTCRNDC 1 3*5 3tl 3); 6RAU0C UHT) " : 
770 NEXT 

780 PRINT fH0r1]tREUU3CNK22SPClDET KAN 
OU IKKF. G0REC2SPCJIGEN (0U.B0U OG BAH )E 2 
SPCJ i 

750 PRINT f 22SPC3' : UAI T 1 38 . 1 : RUN 
300 PRINT! CLR] ; :P0KE368?3.9 
818 FORA-0TO167: PRINT 0U . : : NEXT: PQKE819 
1 . 18; POKES! 8b . 22: POKE38904 . 1 ! POKE38905 . 1 
320 FORA=0TO193: IFPEEKt I 97 I 061THENRUN 
830 NEXT: PR !NT E I10F13C 9CNH REUTf 22SPC3TRY 
K PAA TAST PIT KUAJE22SPC] 
840 UIAIT198.1:RUN 

850 P0KE36878 . 15: P0KE368, 6 . 220: : FORR=BTO 

500: NFX I P0KE36876 .0: GOTO530 

1000 PRINT rCNJE2SPC3INSTRUKTION J/N =A = 

0 

1010 GETSt: IFS4= N' THENPRINT CC03C22SPC3 
C 2C0 J • : : GOSUBfSO: RETURN 
1028 IFS*<> J THEN1010 

1 030 PR I NT " T CLR 3 E 6SPC 3 SOL I TA I REE 1 3SPC3-- 

1040 PRINT DET GAELDER ON ATE 5SPC3FJERNE 
ALLf PINDENDEC2SPC3SAADAN AT DER kun e.r 

1058 PRINT FN TILBAGE I MIDTEN A 2SPC JDU 
FJERNER PINDENDEE 3SPC3UED AT HOPPE OUFR 
OEfl. : 

1060 PRINT OU STARTER PIED AT ANGI Y'KORDI 
NATET OGSAAE4SPC3X'KORPINATET FOR DET 
1070 PRINT 5TED DU UIL FLYTTE FRADEREFTE 
R PNG IR DUE 5SPC JKORDI NATERNE PAA DET" 
1080 PRINT STED DU UIL HEN TILT 3SPC3E CNJ 
PS. DER SKAL lKKEt5SPC]K0rtnfl IflELLEil TPL 
LCHE 

1090 PRINT PS. DE TO F0RSTE CIFRERRETURN . 
TO TEL RETURN. 

1100 G05UB49B: PRINT T CNK5SPCDTRYK EN TA 
STr.5SPC3 : 1 UAIT198 . 1 : RETURN 



Karakter - C16 

10 PRINT ECLR3C 9CH1TRYK 3 GANGE PAA RETU 

RN ' 

20 TRINT EUIHT31 6CN3T D000 D7FF 3800 :CHR 
4(13 3: t CN1X :CHR*( 13 3: ECN]RUN18 : f 9C0 
3 i HON I TOR 

30 01(1 flit 15):DIP1 DXUB20) 
10 DATA 31.14.108,126.108.108.111.0 
50 DATA 29.34. 103. 107. US. 3*. 92.0 
SS OATA 24.36.60.102.126.102.102.8 



60 FORN = 0T 023: READA ! POKE 1 1336 r2 1 6 rN . A : NE 
XTN 

90 DATA 0.0.50.13.62.76.51.0 

110 DATA 8.0.62,103.107,115.62.0 

125 DATA 24.0.60.6.62.102.62.0 

126 rORN:0TO23:READAr POK El 4,336 -r I 210*N .A: 
NEXIH 

130 KT -E S/03C FF12' ) 

149 POKEKT .PEEKCKT 3AN02S1 

150 POKEKT t 1 .11x4 

160 P0KES2.SS:P0KE56.S5 

170 PRINT E CLR3EBLK3S3 HAR DU 
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Mini tegne program C 64 



1 REM 

2 REPI 

3 REPI 

4 RET1 

5 REH 

6 REfl 

7 REP 

10 PRINTCHR4U17 3 
12 PDKE53281 ,B 

11 S = 1021 ;F =55236 
16 Ft03=2: DC0 3=81 
18 KC0J=32iKCl 3=203 

20 N=PEEKC56321 J 
22 IFCNAND16 3::0THEN50 

21 IFCNAND83-0THENX=Xtl :REJ1 HUIS HBJ RE 
26 IFCNAND1 3--BTHENX=X-l : REH HUIS UENST. 
28 lFTNflND2 J=erHENY=Ytl :REfl HUIS NED 
3B IFCNANDl 3-0THENY=Y-l : REH HUIS Op 
32 IFX<BTHENX=8 
31 IFX>39THENX=33 
36 IFYCBTHENY =0 
38 IFY>21THENY=24 

40 P=Xf10*Y 
42 DCl)=PE£KCS+P3 

41 FCl )=PE€KCF+P3 
46 POKES+P.KCT3 
48 POKEFtP.T 
50 FORI =IT09: NEXT 
52 POKEStP.DCTJ 



X PliNI-TEGME-PROQRflpI X 
X TIL COnn. 61 1/7- 1 385 * 
* BJARME U. J ENSEN X 



:RET1 SLET SKflERH 
:REH SORT BAGGR . 
: REfl SKAERriflDDR. 
:RE(1 ROD * BOLD 
'• REipi SPC ♦ RING 
:REfl LAES PORT 1 
REH HUIS 'FIRE' 



:RE(1 UENSTR.KANT 
-REH HBJRE KANT 

* REM BUERST.KANT 
:REP1 NEDERS.fcANT 

* REfl POSITION 
•-REn HENT TEGN 
:REH HENT FARVE 
iREII CURSOR- 

'• REM BLINK 
i REM PAUSE 
: REfl SKRIU TEGN 



51 


PQKEF'P.rm 


= RED 


SKRIU FARUE 


56 


FORI=1TO30:NEXT 


:RErt 


PAUSE 


58 


GOTO20 


i REfl 


FORFRA 


60 


U=0 


i REPI 


•FIRE' 


62 


U=Uti; IFU>20THEN?B 


: REfl 


LANS T ID 


64 


N=PEEKC56321 3 


:REN 


LAES PORT 1 


66 


IFCNAND16 3-0THEN62 


: REfl 


HUIS TIRE' 


68 


1 -HPS L 1 * J* >IU | UJ £ 




Top Kin /ci i lie 


70 


FC03 = CFCB)tl 3AND15 


:REH 


FARUE-SKIFT 


72 


POKES+P.128^FC0 3 


:REPI 


UIS BOGSTAU 


71 


POKEF+P.FCB) 


: REfl 


UIS FAflUEN 


76 


T=l: GOTO60 


:REP! 


TflEND 


READY . 







K0NTROLSUP1 


FOR TEGNEPROGRpH 




I 


167 


2 


l 17 


3 


171 


4 


220 


5 


167 


6 


143 


7 


143 


10 


17 


12 


248 


11 


130 


16 


192 


18 


33 


20 


184 


22 


38 


24 


115 


26 


213 


29 


237 


30 


181 


32 


206 


31 


141 


36 


178 


38 


217 


40 


75 


42 


254 


41 


57 


46 


241 


48 


16 


50 


109 


52 


131 


51 


258 


56 


I 19 


58 


84 


60 


160 


62 


130 


64 


184 


66 


10 


68 


138 


70 


284 


72 


173 


71 


135 


76 


245 







Tipsprogram til Plus/4 -del 1 



L SYS65403 

100B0 REPI Jxx** OPSTflRT Jtxxxx 
10B10 DinERStlB0B3;DlPISRt{5B0 3:KU*=l ;0in 
Rltl3J.RXU3 3.R2C 13 3.G4C40 3.RE4U33 
10B2B SYS654B9:GOSUB2095B 

10030 ONQxGOTOl 1000, 1 2800 . 1 3000 . 1 4000 . 1 5 

600 . 1 60BB . 17BB0 . 1 80B0 . 1 3000 

11800 SYS65403:GOSU8210B0: IFQ*=0THEN10B2 

0 

11010 ONQxGOTOl 1200. 1 1300,1 1900 

11208 IFQQ4= PI ANDERx > 1 THENGOSUB20500: EL 

SEER*=ER*f I 

1 12B5 G0SUB3BBBB 

11210 GETKEYQOi: I FQQ4 = - '« THENER* = ERx- 1 : G 
OTO10020 

1 1228 IFQQ4 = ' t ANDLENtERiCERJ* 3 3>0THEHGOS 
UB28408iGOTOl 1210 

1 1230 IF0Q4O 1 RNDQQiO X' ANDQQIO 2' TH 
EN11210 

1 1240 GOSUB202B0: GOSUB2B300: GOSUB2000B: P 
RINTOOt 

1 1250 ER4tERx3=ER4CER*3-rQQ4: IFLENCER4CER 
JOKM3THENU21B 

1 1260 IFER*-INTtER*/lB3*10=0THENKU;<=KUx-t 

1 : GOTOl 1200; ELSEERx-ERx* 1 : GOTO! 1210 

1 1388 SRx=SRx*l:FL=B:Qt= :SR = 1 

'l 1318 SYS65403: X=0: Y =0: GOSUB200B0 : PR 1NTC 

HR4C183 SYSTEP1KUP0N NR. SRx: GOSUB3B828 

11320 GOSUB22000: GETKEYQ04 

1 1330 IFQQ4= PI THENSRx=SRx-l: GOTO 18020 

1 1 34 0 I F0Q4 = " f 'ANDLEN C SR4 C SRx J 3 >8 THENGOS 

UB22700: GOSUB225B0: GOTOl 1320 

1 1 350 I FQQ4 = ' + "THENFL = - 1 : FORX = 1 TO200 ! NEX 

T: GOSUB22000 

I 1351 IFQQ4 = -t- THENQ4=RIGHT4tSR4tSRx 3.1 3 
H3S2 IFQQ4= -r THENSR4CSR* 3=LEFT4 (SR4(SR 
^3,tLENtSR*(SRX )>-l 3 3 : GOTOl 1 320 
11355 !FQQ4= = THENFL = 1 : FORX= 1 TO200: NEXT 
: GOSUB2200B 



I 1356 IFQQ4= = " THENGOSU82230B: X = 8: GOSUB2 
0000:PRINT 1X2 : GOTOl 1375 

1 1360 IFOQiO'T ANDQQ 4 <> X ANDQQ 4 < > " 2 " TH 
EN1 1330 

1 1 370 GOSUB22200 : GOSUB22300: GOSU8ZB0BB: P 
RINTQQ4:FL=0 

11371 IFLENCO4 3-l(4NOQ4<>QOiTHEN04=Q4tQQ» 
:GOSUB221B0;Q4= ' 

11375 IFFLMTHENQQ* = "H" 

11390 SRiCSRx 3=SR4CSRx 3tQQ4; GOSUB22408 
11180 FL=0:GOSU0200BB; IFLENCSR4C 5R* 3 )Ol 
3THEN1 1320 

1 14 IB JUir Y;Z2;GDSUB20B00: PR1NTCHR41 18 )" 
GARDERING * NY KUPON N 

U120 GETKEYQQ$: IFQ04 = " t THENI 1340: ELSE I 
FQQ4 = " N' THENl 1 380: ELSE 3 FQQ4 - 1 p! THEN 18828 
11430 GOTOU420 

1 1900 SYS651B9:GOSUB30020: X=0: Y=B:GOSUB2 

0880:PRINTCHR4[183'INOTAST 13'EREN 

11310 ] I =ERx: ERx =0: ER4C0 3 = 

11920 GETKEYQ04: IFQG4 = ' pi THEN10020 

11930 IFQ04 = t ANDLENCER4C8 3 )>0THENGOSUB 

28400: GOTOl 1920 

11910 I FQQ4 <>1" AN0QQ4 < > X ANOQQ 4<>"2 "TH 
EN1 1920 

1 1950 GOSUB20200; GOSUB20300: GOSUB20B00: P 
R JNTQQ4 

1 1960 ER*C0 3=ER4(0 3-tQQ*: IFLEMtER4(0 3 3<>1 
3THEN1 1920 
1 1970 ERx ~ 1 I 

1 1975 X = 1 : Y = 22: GOSU620008: PR I NTCHR4 (18 3" 

fE 3NKELT- ELLER CS 3YSTEPIRAEKKER " 
11380 GETKEYQQt: I FQQ4 s" E " THENFL =0: GOT027 
000 

11990 IFQQ4= S THENFL=l:GOTO27080 
1 1399 GOTOl 1380 
12000 SYS65409 

1 2010 GOSUB20380: X = 2: Y = l ( GOSUB20000 : PR IN 
T'ANGIU FORHOLDSPIAESSIG SANDSYNL IGHED" 
12020 X = Be:Y=3:GOSUB20B80:PRINT"KAPVP: "C 
HR4C18 3" 1X2" 

12830 X = 14:FORY=4T016: GOSUB2000B: PR 1 NTCH 
R4C183" SPCC133 : NEXT 



I 204 0 X =14: Y = 17: GOSUB20B80: PR INTCHRi CIS} 

12050 X=09:FORY=4TO16: IFY> 12TH£NX=8 
12060 GOSUB28800: PR I NTY-3: NEXT 
12065 X=0: Y=23:GOSUB20000 
12070 FORI=4T016: Qi = 

12080 PRINT SflNOSYNL IGHED 1-TflLLER KAMP 
"(1-3): : INPUTOi: IFOi = rr'THEN1002B 

12081 Rl(I-3i=UPLC0i ) 

1 2082 X = 15: Y - 1 : GOSU02B0B0: PRINTR1 ( J -3 ): X 
=0: Y=25:GOSU02B000 

12098 PRINT' SflNOSYNL IGHED X'ER KfW 
C I - 3 3; : INPUTOi; IFQi = "|t" THEN 10820 

1 2091 RXCI-33=UflLCQi 3 

12092 X = 13: Y -- [ : GOSUBZBBBB; PRINTRXC 1 -3 ): K 
=0: Y=25:GOSUB20000 

12100 PRINT' SflNOSYNL IGHED 2-TfllLER KAfiP 
U-3 3; : INPUTOi: IFQl =' fl THEN1 0020 

12101 R2(I-3 3=UAL((Ji3 

1 2102 X=23: Y = I : GOSU020000: PRINTR2C I -3 3: X 
-0: Y =25 : GOSUB200B0: NEXT 

12110 X=8: Y=25:GOSUB200B0: INPUT flNTAL TI 
LFAELDIGE RAEKKER ; Qi: ERx-UALCQ* ) 
12120 IFER*<1ORER*>1000THEN121 10 
12400 GOSUB30200: FORI =tTOERX: ERIC U= If. 
ORI I =IT013 

12110 R=R1(II 3+RXU1 3+R2CI J 3: TF = 1 NT C RND C 

1 3*Rm 

12420 IFR=0THENR=3: Rt 1 1 I 3 = 1 : RX( II ) = 1 :R2C 

II 3 = 1: : TF=INTCRNDC 1 )x3)-H 

12430 TFTF <=R1 C 1 1 3THENERi[ I 3=ERt C I )+ "1 " 
12440 IFTF>R1 CI I 3ANDTF < =R 1 C I I JtRXC I I 3THE 
NERiCl 3=ERi(I 3t X' 

12450 IFTF>R1 til D'RXt 1 1 3THENERiCI 3=ERiC I 

3*' 2 

1 2460 NEXT 1 1 : GOSUB 1 2600 f NEXT I : GOTO 1 0020 

12600 X=34: Y=7: IF I >9THEHX=X- 1 

12610 IFI >33THENX=X-1 

1 2620 GOSUe20000 : PR I NT I : RETURN 

18000 SYS6S409:GDSUB2B90B 

1 8005 X = 1 1 : Y =2 : GOSUB20088 : PR I NTCHRi t IS 3 

LOAD DIU. FILER " 
18010 RESTORE 29550: X=6 : F0RY=6T0t 4STEP2 : 
READPPi : GOSUB200BB: PRINTPP*; NEXT 

18020 X=l 1 : Y = 22: GOSUB20000: PRINTCHRVC 18 3 

INDTAST UALG 0-4 " 
L8830 GETKEYQ4: Q*<=UflLtQi 3: I FQ» =0THEN 1 002 
0 

18040 ONO^GOTO18100 . 18200. 18300.18400 

1 8 1 00 GOSUB20600 : X=6 : Y =22 : GOSUB20000 ! PR I 

NTCHRiC 183" INDTflST FILE NAUN " 

191 10 X=25: Y = 22:GOSUB2B000: INPUTNAi 

18120 GOSUB20600:OPENt .8.2 . 0: *>NAi + " . S . 

R 

18130 INPUT"l .ERX 

IflUB FORI -tTOEftx: INPUT- 1 ,ERi<I 3: NEXT 
18150 CLOSEl :GOTO1802B 

19200 GOSUS20600: X=6: Y=22: GOSUS2B000: PR I 
NTCHRiC 18 3'' 1 NDTflST FILE NAUN " 
18218 X=25: Y=22:GOSU82B000: INPUTNAi 
18220 GOSUB20608:OPEN1 . 1 .8 .Nfl* 
18230 INPUTol .ER* 

18240 FORI =1T0ER»: INPUTal . ERi ( I 3: NEXT 
18250 CLOSEl: GOTO 10820 

183BB GOSUB20680:X=6: Y=22: GOSU020800: PRI 
NTCHRiClS) INOTflST FILE NAUN 
18310 X=25: Y=22: GOSUB20000 : INPUTNAi 
18320 GOSUB20600: OPEN1 .8.2. 0: tNAi*" .S. 

R* 

18338 INPUTkI .SR« 

18340 TORI =lTOSR^: INPUTwl .SRiCI 3:NEXT 
1B350 CLOSEl : GOTOl 1B08 

18400 GOSUB20600: X=6: Y=22: GOSUB2B0B0: PRI 
NTCHRiC 18 1 INDTflST FILE NPUN " 
18410 X=25: Y=22: GOSUB20000: INPUTNAi 
18428 GOSUB28600:OPEN1 .1 .B.NAi 
18438 INPUT" 1 ,SR* 

18440 FORI =1T0SR*: INPUT" 1 .SRiCI );NEXT 



18450 CLOSEl : GOTOl 1080 
19000 SYS65409:GOSUB209B0 

1 9085 X=l 1 : Y=2: GOSUB 20000: PR I NTCHRiC 18 3' 

SAUE DIU. FILER ' 
19010 RESTORE 29550: X=6 : FORY =6TO 1 4STEP2 : 
READPPi : GOS-UB20800: PR IN TPPt : NEXT 
1 9020 X = l 1 : Y=22: GOSUB20B00: PR I NTCHRi C 18 3 
* INDTflST UflLG 8-4 

19030 GETKEYQi: Q^=UPLCQi 3: IFQ* =BTHEN t 802 

a 

1 9840 ONQ*GOTO131B0 . 192B0. 19308. 1 3400 
19100 GOSUB20600: X=6: Y = 22: GOSUB2B880 : PR I 
NTCHRit 18 3 INDTflST FILE NflUN " 
19110 X-25:Y=22:GOSUB20B08: INPUTNAi 
19120 G0SUB2B6BB: OPEN1 ,8 ,2 , 00: -t-NAi-r .S 
.U" 

1913B PRINT«1 .ER* 

19140 FOR I =1 TOER*: PR INT "1 .ERiCI 3: NEXT 
19150 CLOSED GOTO10B20 

192B0 GOSUB20600: X=6: Y = 22: GOSUB20800: PR I 
NTCHR4I18 3* INDTflST FILE NflUN " 
19210 X=25;Y-22:GOSUB20000: INPUTNfli 
1 9220 GOSUB206B0; OPEN I .1,1 ,NA4 
19230 PRINT"1 .ER* 

132*0 FORI-1TOER*:PRINT»1 .ERiCI 3:NEXT 
19250 CLOSEl:GOTO10020 

13300 G0SUB28eB8: X=6: Y = 22: GOSUB2000B: PR I 
NTCHRiC 183' INDTflST FILE NflUN " 
19310 X*25: Y=22: GOSUB200B0: INPUTNAi 
19320 GOSUB2060B: 0PEN1 .8.2 , "48: +NAtt" .S 
.U 

1 3330 PRINT" 1 .SR* 

19340 FORI =1T0SR>*: PRI NR#1 ,SRi(I 3: NEXT 
19350 CLOSEl: GOTOl 1000 

19999 END 

20000 REM **xx* SUBRUTINER xxxx* 

20010 RX=PEEK(202 3:RY=PEEKC28S3:PRINTCHR 
it 13 3; : IFYO0THENPOKE205.Y-1 : PRINT 
200Z0 POKE202 .X: RETURN: REn*«PRINTPOSIT I 
ON*** 

20100 X=RX: Y=RY: GOSUB2B808 : RETURN: REN*** 
RESTORE PRINTPOSITION*** 

20200 X = CER*-1NTCER>«/IB3*10 3*3:X=Xt5: IFE 

Rx- 1 NT C ERx/1 0 3* 1 8=0THENX=35 

20210 IFQOi= "X "THENX=X-M 

20220 IFQOi- 2' THENX=Xt2 

20230 RETURN 

20300 Y=LEN(ERiCER* J3t& 

ZB310 I FLENCERiCERx 3 3>2THENY=Ytl 

Z03Z0 IFLEN(ERi(ER^3))5THENY=YTl 

20330 I FLENCERi t £R* 3 3>8THENY=Y* 1 

203<i0 RETURN 

204B0 ERiCER* )=LEFT* CERiCERx 3 . CLENCERiC E 
RJC13-I J3:GOSUB20?00: RETURN 

205B0 GOSUB20600 : X = L 0 : V =22 : GOSUB2000B: PR 
INTCHRi(18 3 SLETTE RAEKKER 7 J/N " 
2B51B GETKEYQi: IFQi = J THENER^=0: GOTOl 12 
00iELSEIFQi= N THEN1121B:ELSEGOTO2B510 
2B52B RETURN 

20600 SP4= ' :F0RX=BT039:5P4=SPi+CHRiC323 
' NEXT: X=0: Y = 22: GOSUB200B0: PRINTSPi: RETUR 
N 

207B8 QOi= : GOSUB202BB: GOSUB20380: GOSUB 
20000 

20210 IFER^- I NTCER^/2 3«2=0THENPR INT ' 
: RETURN 

20720 GOSUB2B800:PRINTCHRitl8)^CHRi(31 3 

:PF?INTCHRi(144):RETURH 
209B0 PRINTCHRiC 14? 3: X=0: Y = 13= GOSUB20000 
: PR lNTCHRi£2? 3tCHRi(94 3 

20910 X=39: Y=24: GOSUB2B00B: PR I NTCHR* t 2? 3 
+CHRiC66 3 

20930 Y- 18: X=0: GOSUB2BB0B: FORX=0TO33: PRI 
NTCHRU1623; i NEXT : RETURN 
2095B GOSUB20980 

2B955 PRINTCHRiC 147 ): X=12: Y=2: GOSUB2B0B0 
: PRINTCHRtf 18 3 HOUEDflENU 

28960 RESTORE29S00: X =9: FORY=6T01 5: READPP 
i : GOSUB20008: PRI NTPPi ! NEXT 



20980 X = 10: Y=22: GOSU820B0B: PRINTCHR*C18 3 

INDTAST UALG 0-3 
20990 GETKEYQ* : Q'a =UftL f Ql ): IFQx =BTHENEND I 
ELSERETURN 
21000 GOSUB2B980 

21010 PRINTCHRtCl 47 3:X=1B: Y=3: GOSUB20000 

: PRINTCHRlf 10 3 ! NDTASTNINGSPENU 

2 1 020 RESTORE29540: X = 11: F0RY=6T01 2STEP2 : 

READPP4:G0£UB2B888:pRiNTPP*:NEXT 

21030 X =18: Y -22: GOSUB200BB: PRINTCHRi t 18 3 

INOTAST Uf»LG 0-3 
21010 GETKEYG*:Q*=UAL(a*);RETURN 
22000 X=20: Y=0:GQSUB200B0 
22010 J FFL <0THENPRINT"HflLUGARQERI NG I I I" 
22B20 IFfL =0THENPRINT' 

22030 I FFL >8THENPRINT HELGflRDER ING If I I : 
FOR* =0TO500; NEXT 
22010 RETURN 

22108 IFQ*= I X ORQt = XI" THENQQ*=" A' 
22 1 10 IFQ* = 12 ORQis -21 THENQQ*= "B"' 
22120 IFQi- X7 ORQt: 2X' THENQQt=' C" 
22140 RETURN 
22200 X=8 

22210 IF0Q4= X TH£NX=XtS 

2222B FFX4 = X THENX=Xt1 

22230 IFOQt: 2 THENX=Xr2 

2224B IFXi= 2 THENX=X*2 

22250 RETURN 

22300 Y=LENCSR1CSR:0 3*6 

22310 1FLENC SR4 tSRx ) 3>2THENY=Y+l 

22320 IFLENCSRiCSRx 3 3>5THENY=Y*1 

22330 IFLENtSR4CSR;<3 3>8THENY = Y+1 

22310 RETURN 

22100 IFaot= H THENF|4 = 3:G0T022138 

22110 IFQ01-: ft 0RGQ4 - B ORQQi = C THENFA= 

2:GOTO22130 

22420 Ffl = l 

22430 SRrSR*FA 

22118 X=29: Y = l 9: GOSU020000: PR I NTCHRit IB J 

22458 X = 29: Y= I 9: GOSUB20000: PR I NTCHRit 10 3 

CHRK116) ANTfll CHR4U83 
22155 X=30: Y=2B: GOSUB20800: PRINT 
22168 X=29: Y-20: GOSUB20080: PRINTCHR4C 18 3 

SPCC? 3 • 

22470 X =23: Y=2 1 : GaSUB20B00: PRI NTCHRt ( 1 9 3 

22180 | FSR > 288ANDSR i >S 1 2ANDSR < > 1 024THENX 
= 3 1 : Y = 20: GO SUB 20000: PR J NT ' FEJL I " 
22498 IFSR>288flNDERO512ANDSRO1024THENS 
R«=SRx-l :SR*CSR/i+t 3= : FOR I = 1 TO508 : NEXT 
22495 I FSR > 288 ANOSR OS 1 2ANDSR < > 1 021THENG 
OTOl 130B 

2249S X=32: Y=20: GOSUS28000: PRJNTSR:RETUR 
N 

22500 SR4CSRxl=LEFTttSRitSR*l. CLENCSR4CS 
R* 3 3- I 3 J: GOSUB22600: RETURN 

22600 QQ4: : GOSUB22200: GOSUB2230B: GOSU0 
20000 

22610 IFSRx-INTCSR*/23*2=0THENPRINT" 
: RETURN 

22628 GOSUB20000:PR]NTCHRtC IB }+CHR*C31 3" 

": PPINTCHRS 1 111 3: RETURN 
22780 Ti=RIGHr*(SRi(SR^3.l 3 

22718 1FT4= fl ORTi= B ORT4="C " THENSR =SRs 
2 

22720 IFTi = H THENSR =SRy'3 

22730 X=30: Y=2B: GOSUB20000: PRINT 

22710 X=31 : Y=2B: GOSUB2B008: PRINTSR: RETUR 

N 

27000 SYS65183:E=0:F=8:G=0:H=0: IFFL : 1 THE 
N27500 

27010 PRINTCHR4C 133tCHR*( 18 3 UNDERS0GELS 
E AF RAEKKE NR . : 
27012 GOSUB30300 

27820 FORC=lTOERx: SU=0: X=3B: Y=0: GOSUB200 
08:PRINTC 

27030 FORD = 1 TO! 3: TE* =H I D* t ER* C C 3 . D , 1 3:GE 
i--niD*CER*C83.D,t ) 



27040 I FTE4 = GEiTHENSU=SUt 1 
2704S NEXT 

27050 IFSU=13THENGUE 3 =C : £ =E*1 : Y = I ?'. X =Ef 
4 : GOSUB200 00: PRINT » 

27060 IFSU = 12THENG2CF 3=C:F =Ftl : Y-16:X=Ft 
4:GOSUB20000:PRINr * 

27078 I FSU = 1 1 THENG3CG )-C: G=G+ 1 : Y = 15: X = Gt 
4: GOSUB20000: PRINT * 

27080 JFSU = 10THENG4CH)=C:H=H>l: Y = H:X=Hf 

4: GOSU320000: PRINT' »' 

27090 JFSU<l0rHENG(SU3=G[SU3tl: 

27100 I FSU <| 0 THENGOSUB27380 

272B0 I FSU <10 THEN Y=SUt4-; X=Pt1 : GOSUB20008 

:PRINTCHRiCl83 

27210 NEXT:G0T027933 

27380 1FER*<= 10BTHENP=GCSU 3: RETURN 
27310 IFERa>lB0THENP=G(SU3/INTtERx/LB0)t 
.9: RETURN 

27939 GETKEYQ4; END 

29500 DflTfl 1> INOTflSTNI NG . 2> TIIFAELDIGE 

RAEKKER.3) REDUCEREDE systeher 

29510 DATA 4> UDG. RAEKKE S YSTEMER .5 > GRA 
FiK.fi) PRINTERUDSKR I FTER 

29520 DATA 7> SKAERflUOSKR I FTER ,B> LOAD D 

IU FILER. 9> SP.UE DIU FILER 

29530 DATA 8> AFSLUT PROGRAfl 

29540 DATA I> ENKELTRAEKKER .2> SYSTENRAE 

KKER ,3 > 13'NEREN.0> HOUEDHENUEN 

29550 DATA !> ENKELT RAEKKER DISKETTE. 2> 

ENKELTRAEKKER KASSETTE 

29560 DATA 3> SYSTENRAEKKER DISKETTE. 4> 

SYSTENRAEKKER KASSETTE 

29578 DATA 0> HOUEONENU 

30008 REI1 xxxxx GRAF IKBILLEDER 

3001 0 SYS65189: X=B: Y=0: GOSUB20B08: PRI NT C 

HR*t 18 3 KUPON NR. KU«: 

30020 X=0: Y=2r GOSUB20000: PRINT '[ 7S/C3C C/ 
R3t30S/C3[C/SJ" 

30038 X=0: Y = 3: GOSUB20000: PRINT ' RK.NR. [S 
yB3 It 2SPC3 2C 2SPC3 3C 2SPC11I 2SPC35C 2SPC3 6 
C 2SPC)7[2SPC38r2SPC39 18tSyB3' 
30018 X =0: Y=1: GOSU020000: PRINT KflMP NRC S 
✓BJlX2lX2lX2lX2lX2lX2lX2lX2lX2lX2tS/-B] 
30015 K4*= C7S/CJ[S/+]C30S/C)CCAIJ 
30050 X=8: Y=5: GOSUB28B00: PR INTKIt 
30855 Kl* : :K21= :K3i= 

30060 FORX = I T03: Klt = K14 tCHR4( 10 3t-CHR4(32 

);NEXT:K2i=K2«rCHR$t3l 3rKl-4rCHR4C5 3tK14 

30070 FORX = lTOS:K34^K34tK2'4:NEXT 

30800 X=8:FDRY=6rO22:GOSUB20eB0:FRINTK3S 

:NEXT:PRINTCHR4(1113 

30830 X-i:F0RY=6T08: GOSUB2B800: PRINT Y-5 
[ 3SPC3CS/SJ "SPCC303 f S/BJ : NEXT 
30100 X=0: Y=9: PRINTK14 

30110 X = 1 : FOR Y = 1 0TO 1 2 : GOSUB20000 : PR 1 NT Y- 
6' f 3£PCJt£/83 SPCC 38 )"£ S/Bl ; NEXT 
30120 X=0: Y=13: GOSUB20008: PRINTK44 
30130 X = 1:FORY = 14TO!6:GOSUB20088: PRINTY- 
7 [3SPC3CS/8J SPCC38 3 CS/B3 : NEXT 
30140 X=0: Y=17:GOSUB20000:PRINTK4* 
301 50 X =0: FORY=18T021 : GOSUB20800: PRI NTY- 
9 7 3SPC ][ S^B3 SPCC 30 3 t S/8 3 : NEXT 
30160 X=0: Y=22:GOSUB20000:PRINT [ 7S/C][ C 
y^3t 30S^C]CC/X] : RETURN 

30200 X=30:Y=4:GOSUB2BBBB;PR1NT BEREGNIN 
G :X=31 : Y=5: GOSUB28BBB: PR I NT FIF RK . " 
30218 X=31: Y=6:GOSUB20000:PRINT [S/UJMS 
sZH Sxl 3 : X=3l: Y =7: GOSU620800: PRINT " t S/B 
3ClSpC3tS/B3 

30220 X=31: Y=8: GaSUB208BB: PRINT [ S/J JC 1S 
/-C3C S/K 3 : RETURN 

30308 X=1: Y=3: G0SUB288BB: PR INT C C/A3 C 1S/ 

C3CC/RH1SyC][ C /R 3 [ 1 S/C 3 [ Csft 3 C 1S^C3C CyR 3 

C 5S/C3CC/RJt5S/CJ[ C/R3C 3S/*C]" 

383 1 8 FORI =4TOl7: X = l : Y= I: IF I >13THENX=0 

30320 GOSUB20880: PRI NT I -4 f C/U] ": NEXT: RE 

TURN 

39999 END 
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FQRHFMDLERE 



a a a 



Kobenhavn 



FONA COMPUTER CENTER 

Ilium. 4 sal. 
Ostergade 52 
1001 Kobenhavn K 

TeH.: 01-144002 
FONA 

Ostergade 47 
1100 Kobenhavn K 

TeH.: 01-159055 



FONA COMPUTER CENTER 

Skindorgade 41 
1159 Kobenhavn k 
TeH. 01-110707 



FONA 

Vesiorbrogmde 62 
1620 Kobenhavn V 
Telf.: 01-249300 



FONA 

Ql Kongevej 115 
1850 Kobenhavn V 
Telf . . 01-210893 



Storkebenhavn 

DAT AC ARE 

Tafnvflj 151 

2610 Rodovre 
Telf.: 01-705858 

FONA 

Falkoner Aite 58 
2000 Fredenksberg 
Telf.; 01-352122 



MIBOLA MIKRODATA 

0ster£>foga<Je 117 
2100 Kobenhavn 0 
Tell.: 01-183366 



FONA 

Ostenbrogade 80 
2100 Kobenhavn 0 
TeH.: O1-421010 



FONA 

Norrabrogade 34 
2200 Kobenhavn N 
Telf.: 01-377788 



FONA 

Notre brogade 174 
2200 Kobenhavn N 

Telf.: 01-630346 



FONA 

Amagerbrogade 49 
2300 Kobenhavn S 
Telf 01-572131 



FONA 

Amagerbrogade 126 
2300 Kobenhavn S 
TeH. 01-553600 



FONA 

Sundbyvester Plads 1-3 
2300 Kobenhavn S 
Telf.. 01-559662 



FONA 

Fredenk55und3vej 38 
2400 Kobenhavn NV 
TeH.: 01-190186 



LAMIFI DATA 

Solskreanien 33 
2500 Valby 
Telf.: 01-163299 



FONA 

Valby Langgade 56 
2500 Valby 
TeH.; 01-163045 



FONA 

Hovodvejen 85 
2600 Qlostrup 
Telf.: 02-457077 



FONA 

Rodovre Centrum 131 
2610 Rodovre 
Tetf.: 0M11777 



FONA 

City 2 - 206 
2630 Taslrup 
TeH : 02-521525 



POULSEN COMPUTER CENTER 

Oly 2 - 304 
2630 Tasirup 
Telf.: 02-990977 



FONA 

lsho| Bycenier 32 
2635 Ishoj 
TeH 02-730233 



FONA 

Hwdovre Stallonscenter 37 
2650 Hvtdovre 
Tetf.: 01-471621 



FONA 

Strandmartosvej 20 
2650 Hvldovre 
TeH.: 01-490711 



FONA 

Grove Center 88 
2670 Greve Strand 
Telf. 02-900455 



FONA 

Hundie Storcentar 98 
2670 Grave Strand 
TeH.. 02-900790 



JM-OATA 

Sandbakken 27 
2680 Solrod Strand 
TeH . 03-144573 



FONA RADIO A/S 

16 

Frederlkssundsvej 330 
2700 Bronshoj 
Telf. 01-287000 



FONA 

Fredenkssundsve) 154 
2700 Bronshoj 
TeH.: 01-282728 



FONA 

Jornbane Alle 39 
2720 Vanlose 

Tail 01-743518 



FONA 

Heriev Sygade 28 
2730 Heriev 
TeM : 02-946787 



FONA 

Centrvrngaden 26 
2750 Balterup 
Telf • 02-654455 



FONA 

Lyngby Siorcenter 38 
2800 Lyngby 
Telf.: 02-871134 



FONA 

Soborg Hovedgade 56 
2860 Soborg 
Telf.: 01-561765 



FONA 

Strandvejen 161 
2900 Hallerup 

Telf.: 01-611422 



FONA 

Hovedgaden 14 
2970 Horsfcolm 
TeH 02-864166 



Nordsjaelland/Bornholm 



BO-L OATA 

Set. Olalgade 47 
3000 Heislngcr 
Telf.; O2-10O211 



FONA 

Stengade 53 
3000 Helsingor 
Tetf.: 02-210918 



FONA 

Siotsgade 25 
3400 HIHerod 
Telf. 02-260133 



BO-EL DATA 

Tamsborgvej 19 

3400 HIHerod 
Tetf.; 02-253131 



FONA 

Farum Bytorv 11 
3520 Fafum 

TeH.: 02-955088 



U.I.B. ELECTRONIC & DATA INC. 

ApS 

Liilevangsvej 3, Accacletorvet 
3520 Farum 
Tetf.: 02-955170 



FONA 

Havnegade 21 A 

3600 Frederikssund 
Tetf 02-311515 



Syd- og Mldtsjalland 



FONA 

Algade 12 
4000 Roskilde 
TeH 02-366633 



DATAR1NGEN 

Tune Ceniret 
Arnestien 12 
4000 Roskilde 
TeH 02-139100 



FONA 

Veslsjallands Center 15 
4200 Siageise 
TeH.. 03-520916 



FONA 

Ahlgade 61 
4300 Holbaak 
TeH. 03-437510 



FONA 

Norregade 1 
4600 Koge 
TeH.. 03-650088 



FONA 

Set Peders KtrKepiaaa 1 
4700 Natstved 
Tetf.: 03-727122 



Fyn med omliggende 



FONA COMPUTER CENTER 

Vestergade 61 
5000 Odonae C 
Telf.: 09-125808 



FONA 

Tarup Cen ler 
5210 Odense S0 
Telf.: 09-160123 



FONA 

fioaengardscenlrot 34 
5220 Odense Sp 
TeH.: 09-159755 



FONA 

Voldeade 7 
5700 Svendborg 
Telf.: 09-211785 



Vest- og Sonderjylland 



FONA 

HeiligKorsgade 2 
6000 Kolding 
Telf.; 05-527755 
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FOTOHUSET A/S 

Sondorgade A 
6000 Kolding 
TeJf . ; 05-520044 



FOTOHUSET A/S 

Bispegade 7 
6100 Haderslev 
T«B.: 04-521319 



FOTOHUSET A/S 

NorreporT 19 
6200 Abenrt 
Telf.. 04-626601 



FONA 

Ramsherred 41 A 
6200 Abenji 
Tolf 04-622844 



FONA 

69 

Petlegade 30 
6*00 Sonderborg 
Tell.; 04-421013 



FOTOHUSET A/8 

PeOegade 49 
6400 Sondorborg 

TeS.; 04-423265 



FONA 

Kongensgade 60 
6700 Eobjerg 
Telf.. 05-130133 



Midtjylland 



FONA 

GothGfsgade 12 
7000 Frederick 
Tort 0S-922955 



FOTOHUSET A/S 

Goihersgade 19 
7000 Frederick 

TeH.: 05-922454 



FONA 

Norrogode 29 G 
7t00 Vejte 
Telf. 06-827280 



FOTOHUSET A/S 

Radhustorvet 2 
7100 Vejle 
Telf. 05-822337 



FONA 

Bredgade 17 
7400 Heming 
Telf. 07-124455 



FONA 

Norrog;ade 30 
7500 Holsiebro 
Tolf.: 07-425611 



Ostjyliand 



FONA COMPUTER CENTER 

Qrinegardsgade 16 
8000 Arhus C 
Telf.; 06-132222 



FONA 

Guldsmedegade 15 
8000 Arhus C 

Toff.: 06-122777 



FONA 

M P Bruunsgade *3 
8000 Arhus C 
Tolf.. 06-131857 



FONA 

Sondorgade 15 
8000 Arhus C 
Tetf.: 06-131724 



FONA 

City Vest 2*3 
3220 Brabrand 
Telf.: 06-253011 



FONA 

Sondsroado 17 
8600 Silheborg 
Telf. 06-825733 



FONA 

Sondergade 
8700 Horsans 
TeH.. O5-62B000 



FONA 

Scl. Mnlhtas Marked 305 
8800 Viborg 
TeH : 06-625266 



FONA 

RWhu35tr8QdB 13 
B900 Panders 
Telf.: 06-427533 



DATA RING EN 

Stoisgade 4 
Stoiscentret 
8900 Panders 
Telf.; 06-413777 



Nordjylland 



FONA 

Nibevej 27 A. Skalborg 
9200 Aalborg SV 
Telf : 08-184310 



FUTURE line 




PILESENTERER! 



Trebestekst tilcbm64 

100% dansk tekstbehanoUingsprograrn i ren M/C 
med falgende funktioner: 

- Dansk Karaktersset (JE0Ase0&) pa printer ogskterm 

- Fuldautornatisk scroll i alle retninger op til 
80 tegn pr. linie. 

- B!ok opdelt, (flyt, fjem & slet blok). 

- Kan bruges med CBM printere og tekstbehandlings- 
printere, som JJJKI 6100 & Brother HR15. 

- Centrering, H^jre justificering & Definerbar TAB 
(optil 14 stk.). 

- Formaterer mens man skriver. 

- Funktionsforklaring af alle kommandoer, i 
vinduer pa skEermen. 

- 20K tekst. 

- Directory af diskindhold. 

- Udferlig brugermanual. 



DISK KR. 498,-. 
TAPE KR- 448,-. 



Vejl. 

udsalgspriser! 



NU med TURBO LOADER pa bade disk & tape. 

FUTUREline, Tjaerebyvej 9, 34O0 Hillerod 
Tlf. 02-110428 

DANMARKS SOFTWAREHOUSE 

HENVISNING TIL N^ERMESTE FORHANDLER 



SLUT MED 

LOADINGPROBLEMER 




- Her er program met alle Commodore 64 ejere far brug for- . . . 
skrev den engelskefagpresse. 

Programmer med fast load op til 3000 baud giver ofte 
problemer, idet bandoptageren normalt arbejder med 300 
baud. 

Med AZ1MUT 3000 kan du selv flnindstille bandoptagerens 
tonehoved til at loade op til 3000 baud- heit uden problemer. 
Leveres komplel med software, speclaiskruetraskker og udlftsr- 
lig dansk brugsanvisning. 

EKSTRA: Arcade game -Bandana City- ogtesfprogram pa 
bandets bagside, 

Din Commodore forhandler har del nul 



NEBrmeslefofhandler anvtses: 
MUMKSOAARD 

Nor'eSogade35 l370KebenhavnK 
TH.01-127030 
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DISKETTE SALG 



Har du ikke tid eller lyst til selv at 
indtaste de programmer, derer li- 
stet ud i RUN, kan du kobe dem 
samlet pd bdnd (kr. 98,00) eller di- 
skette (kr. 118,00) Incl. moms, 
porto og ekspedltlonsgebyr. 

Fra og med dette nummerj vll 
b&ndet eller dlsketten kun Inde- 
holde Commodore 64 program- 
mer. Programmerne til de andre 
computere vit blive samlet for 
fern numre 2 gange om aret. 



Gratis gave 

Vort prog ram kartotek er omfat- 
tende, og vl! vil derfor fremover 
gratis laagge et eller to kvalltets 
programmer ekstra pA b&ndet/- 
disketten. Hvad der er, vil veare 
en overraskelse. Men du bliver ik- 
ke snydt! 

Bedste programmer fra RUN 

Vi har samlet de 15 bedste pro- 
grammer fra RUNs farste ar pa en 



diskette (kun diskette) og ss&lger 
denne for kr. 11 8,00. VI kan endvi- 
dere fortaelle. at vi stadig kan le- 
vere »gam1e« bind og disketter, 
ligesom vort privatregnskab til kr. 
198,00 stadig kan leveres. 

Programmerne saelges kun 
mod forudbetaling, check eller gi- 
ro (postgirokonto 1 48 31 61), og 
husk at anglve, hvilken program- 
samling, du bestlller. 



TIPSPROQRAM 

Nar disse llnler leeses, skulle Tips- 
tjenestens nye »eomputerkupo- 
ner- vaere pa gaden. Der er mange, 
der mener at fremkomsten af disse 
kuponer vll vaere revolutionerende 
for tipnlngen. 

Systemer. som Ingen tldllgere 
orkede at skrlve ud, kan compute- 
ren nu klare uden besveer, og gen- 
nemgangen for gevlnster klares 
Hge sa let. 

RUN har nu i fern numre kort et tips- 
system, der som mat har haft denne 
udprintning. Desvasrre er offentlig- 
gorelsen af kuponerne sket sa sent, 
at printerrutinen ikke har kunnet 
komme med i dette nummer. 
Vi vil imldlertid geme give vore 



laasere mulighed for at vasre med fra 
starten, sa derfor vil tipssystemet 
kunne kobes hos RUN fra den 10. 
September Systemet leveres til sa- 
vel Commodore 64/128 som PLUS/ 
4. 

Et system til VIC-20 (min.Sk udvi- 
delse) og C16 vil kunne kobes fra 
omkring mldten af September. 

Programmet rummer folgende: 

Indtastning af enkeltraekker 
Indtastning af systemrsekker 
Dannelse af »tilfse/dige« rsekker ef- 
ter en forholdsmaessig sandsynlig- 
hed 

Indtastning af systemnogler for ud- 
gangsraskkesystemer 
Indtastning af systemnogler for re- 
ducerede systemer 



Indtastning af 13'&ren 
Indtastning af garderinger og evt. 
udgangsraakke for ovennaavnte sy- 
stemer 

Gemme systemnogler og raekkerpA 

bSnd eller diskette 

Gennemgang af ra&kker for evt. ge- 

vinst med grafisk fremstilling af 

rmkker/antai rigtige 

Udskrifi pi skSBrm eller printer af 

kuponer 

Udskrift pa' Tipstjenestens kuponer 
pi enten MPS801 eller MPS802 
Programmet koster kr. 195,00 og le- 
veres pa enten band eller diskette. 
Som sffidvanlig leveres kun mod 
forudbetaling ved check eller giro 
(girokonto 1 48 31 61) 

- og husk at anf&re, hvilken com- 
puter det drejer sig om. 



KOMPLET REGNSKABSSYSTEM 

Er du indehaver af en mindre vlrk- 
somhed med deraf folgende for- 
pllgtelser til en lovmaesslg regn- 
skabsforing, som du finder for ind- 
vlklet, eller betaler dyrt for at fa 
udfort? 

RUN har nu fornojeisen at tll- 
byde sine Isesere et komplet regn- 
skabssystem med en fast stan- 
dardkontoplan, der kan anvendes 
af de fleste mindre, selvsteandlge 
nasrlngsdrivende. 

Systemet kreever en Commo- 
dore 64, en Comal-80 kapsel (ver- 
sion 2.01), en diskettestation og en 
MPS 801 eller 802 printer. Hvis an- 
den printer anvendes, kan sojle- 
programmet ikke kores. 
Hovedvaegten er lagt pa, at syste- 
met skat vaere sa enkelt som muligt 
at anvende - uden at tllsidesaette 
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lovgivningens krav. Samtidig skal 
systemet rumme al/e de faciliteter, 
man med rlmelighed kan forlange. 

Systemet rummer folgende facili- 
teter: 

Debitorbogholderi. tidstro saldi 
Kreditorbogholderi, tidstro saldi 
Finansboghoideri, tidstro saldi 
Lagerstyhng, tidstro beholdning, 
avance og phser 
Ordremodtagelse 
Tilbudsgivning 
Udfakturering/kreditehng 
UdsaJgsphslister, tidstro 
Udskrift af driftsregnskab og status 
med negietal 

Udskrift af daglig kassejournal 
Grafiske udskrifter 
Udskrift af rykkerbreve, baseret pi 
sidste transaktionsdato 
Udskrift af adresseetJketter, alle el- 
ler kun et postnummer 
Udskrift af telefonlister 



Udskrift af debitor kreditorv og va~ 
redata 

Udskrift af saldi for debitor, kreditor 
og lager 

Udskrift af genbestilllngsllster 
Udskrift af optaallingslfster 
Udskrift med brevhoved 
Valgfri kredittid i dage fra 0 til 365 
Valgiri rabatsats fra 0% til 99.999% 
Alt er integreret og opdateres auto- 
matisk. ingen manuelle overforsler 
er nodvendige. 

Moms% og timelon kan aandres, 
nar behovet er der, automatisk be- 
regning og tidstro momsregnskab 
er all id titstede. 

Systemet med udforlig vejled- 
ning kan bestilles ved forudbetaling 
af kr. 375,00 (check eller girokonto 
1 48 31 61). 

Yderligere oplysninger om syste- 
met kan rekvireres ved indsendelse 
af frankeret svarkuvert til RUN. 



Manedens Pro 



10 INPUT " FORVENTN 1 NGER TIL FORHANDLEP 

20 IFA$= "FOPULffRE PRODUKTER" THEN80 

30 IFA$= "NYHEDER " THEN80 

40 IFA*= "PRODUKT GARANTI " THEN80 

50 IFA$= "BILLI6ESTE PRISER" THEN80 

60 IFA$= "BEDSTE SERVICE" THEN30 
?0 END 

80 GOTO RB DATA! ! Li 



;a* 



tops 



TIL 



BUNS 



Sadan veelgerdu 

computerleverandor! 

OBS! Vore aktuelle 
dagspriser er a it id 

landets billfgste. Se 

demiden BLA AVIS. 




R.B. DATA er aftid BILLIGST med det BEDSTE! 

Vi garanterer dig de bundpriser. du aldrig for turde dramme om, 
Og hos R.B. far du dan bedst tsenkelige service - bade for og efter kobet. Problemer? 
Vor ukuelige og kompetente serviceafdeling klarer det umulige (mlrakler mod minimal merpns). 
Ring til os! Vi vil meget gerne sende dig vort GRATIS produktkatalog og specialbrochurer over alt fra program- 
kapsler til professionelle PC 'see! Vi forhandler Commodore, Amstrad, skrivemaskiner og alt i tilbehor. 

RB. DATA - opfylder alle dine hobby- og erhvervsonsker! 



COMMODORE: 
Commodore 64 

Computer 2495,00 

1541 Diskettestation 

(170 Kb) 2995,00 

MPS 801 Matrixprinter . 2595.00 
MPS 802 Matrixprinter . 3495,00 
DPS 1120Typehjuls- 

prlnter 5295,00 

COMAL 80 V.2.01 

(den nye> 875.00 

Skonskriftprinter til Commodore 

64, komplet med RS-232 interface 
og kabel kan vi p.t. sselge for kun 
3.995.00. Ring og her! 

Alle Commodore-produkter er na- 
turligvis med dansk brugsvejled- 
ningogl arsgarantl. 
OBS ! ! Selvfolgelig er vi ogsa bil- 
I igst med den nye PC- 1 28 og 
1571 Super-Diskettestation. 
Bestil NU og undga leveringstid 
senerei 



ZERO PRINTER-INTERFACE: 

Selvfelgelig kan du bruge Brother, 
Epsom, Okidata og alle de andre 
printeretil din Commodore 64. 
Med Zero/64 printerinterfacet og 
den indbyggede 1 6 Kb buffer er 
Printer-Problemer Passe! Og sa er 
prison fOrunderligt lav — ca. halv- 
delen af, hvad en 1 6 Kb printer- 
buffer alene koster andetsteds: 
1095,00. 



AMSTRAD: 

Vier simpelthen sa rorende billige 
med AMSTRAD, at du ikke vil tro 
dine egne oren! Ring t il os idag. 
horvore PROVOKERENDE LAVE 
DAGSPRISER - sa saalger vi dig til 
gengseld alle tiders hjemme- og 
erhvervscomputer. 

AMSTRAD-PRINTER: 

Star SG-10 til 5295,00 (veil, ud- 

salgspris) er den mest suverasne 

printer til Amstrad. 

Lidt billigere? Hvad med en 

Fuji PD-890 til kun 3395,00. 

Ring til os i dag og forlang special 

brochure overdette seje grej'll 

SOFTWARE/TILBEH0R: 

Hvorfor kobe et tekstbehandlings- 
program, du skal ga pa kursus for 
at kunne bruge? Hos R.B. sselger 
vi ..husets tekst- TEKST64til 
385,00. Let at betjene og med 
udforlig, dansk brugsvejledning. 
Leveres (selvfolgelig) pa 3M di- 
skette! Ligeledes kan du fa DISK 
TOOL 64 (for Basic-program- 
moren) eller DISK 64 (til mere 
avanceret '>disk-leg«) til kun 

125,00/stk. Se vort produktkata- 
log for yderligere oplysninger. 
Andet software: Vi har/skaffer ALT 
til Commodore. Amstrad, Atari. 
MSX, Spectrum etc. til uhyre for- 
nuftige priser. Send 5,00 i frimaer- 
ker og fa markedets storste og 
bedste software-katalog llge ind 
ad doren (gratis mod bestilling). 



TILBEHOR: 

Papir, printerformularen endelose 
baner.farveband.kabiier, interfaces, 
modems, stovhastter... 
vi er billigere end du tror. 




1541 TURBO-DRIVER: 

Op til 20 gange hurtigere Loading! 
Bedste tid til dato: 202 blokke pa 
7,33 sekunder - hurtigere end en 
2,8 Liters, 1 70 HK Toyota Supra 
fraO-iO0km/h!! Spark livi din 
sovndyssende Commodore 1541 
Diskettestation med markedets 
bedste (og hurtigste!} Turbo- 
Driver. Korer parallelt . derfor storre 
datasikkerhed. 1 00% hardware- 
baseret, fyldsr inlet i hukommel- 
sen, reset-knap der tager alt, 2 
min. koptprogram. 1 1 sek. format- 
tering. 21 ekstra Bastc-komman- 
doer. dansk brugsvejPedntng og 1 
ars garanti. 

985,00 monteret/945.00 eksl. 
montering. 

3M DISKETTER: 

3M Disketter er Verdens bedste - 
Basta! Smid dine -Koreplader- 
langt. langt vaek og skift til Kvalitet 
-3M.10. stk. 280,00 

(S/ERTI LBUD). 




Postboks 28 - 2980 Kokkedal 
Ordretelefon (02) 24 26 58 
Ma-so kl. 8.00 til 22.00 



potensoploftningspilen - lige 
bortset fra kersel med 12termina- 
ler, som koreroverto skaermbille- 
der. Der skal man kore billede 2 
for at komme retur. 

5. Man kan altid genstarta 
programmet med GOTO 10 uden 
tab af data. 

6. Data bliver gemt pa diskette 
under det navn, man giver lanet. 

7. Data pa band bliver gemt 
hver gang under navnet data, sa 
der ma man selv notere, hvor de 
forskellige eksempler ligger. 

&. hvis man kndtaster et filnavn, 
der ikke findes pa disketten, gar 
maskinen ikke i stS, men sparger 
Igen. 

9. Fidusen ved hukommelsen 
er, at man bade kan laegge renter 
sammen fra Here forskellige flan. 

10. En ti lie gid ting er ogsa, at 
nar inputsiderne kores igenne, 
udskrives de data, som evt. star i 
maskinen. 

11. hvis der ikke star andet, 
kommer man altid videre ved at 
trykke en tilfasldig tast - men Ik- 
ke potentoploftningstasten. 

SUPERPRINT 

af 

OLE TOFT 



Wti t 111 iit( Wilt 
HER ER EN LIDT 
ST0RRE 




SUPERPRINT 

SUPERPRINT er program til bed- 
re udnyttelse af Commodores 
MPS 801 Pinter ellerSeikoshaGP 
100 VC, som ligner MPS 801 me- 
get. 

Til aendring af bogstavernes 
udseende og form kan tre para- 
metre asndres: 

BOGSTAVBREDDEN kan veel- 
ges fra 1 og opefter, men de bed- 



ste resultater opnas med en bred- 
de fra 1-9. Der kan ikke sendres pS 
hojden af bogstaverne, deer altid 
8 linier hojfc. 

SKRIFTKODE 1 er et udtryk for 
hvor ofte, der skal laves en hvid 
streg i tegnene. Hvis skriftkode 1 
vaelges til 0 bliver bogstaver- 
ne/tegnene uden hvide streger 
Hvis kode 1 vaelges til 1 bliver der 
slet ikke printet noget, da der la- 
ves en hvid streg for hver dot/prik. 
Hvis kode 1 vaelges til 2 kommer 
der en hvid streg i tegnene for 
hver anden dot pa printeren. Hvis 
kode 1 vaslges til 3 kommer der 
en hvid streg for hver tredje dot 
o.s.v., men prov dig frem. 

SKRIFTKODE 2 er dataen for 
printerhovedet, altsa udseendet 
af de sma streger bogstaverne 
kommer til at besta af, Kode 2 ud- 
regnes efter folgende model: 

* 1 
4 2 

• 4 

* 8 
' 16 

• 32 
■ 64 

Hvis bogstaverne skal besta af 
helt sorte streger skal kode 2 alt- 
sa vaera 1 + 2 + 4 + 8+16 + 32 + 
64= 127. 

Pllene, som fremkommer efter 
svar pa centreringssporgsmalet 
angiver hvor der kan skrlves 
tekst. Antal let af pile afhsenger 
naturligvis af den valgte bog- 
stavsbredde. 

SUPERPRINT fungerer, som 
det er listet nu, I den sakaldte 
bogstavmode (sma og store bog- 
staver). Hvis man onsker at asn- 
dre det, sa det fungerer i grafik 
mode (store bogstaver og grafik- 
tegn) skal programllnle 60 og 260 
blot sendres til: 

60 OPEN4,4:PRINT"(BLU)"CHR 
$(8) 

260 B = 53248 + 8"A + J 

Plus at teksten i INPUT-saetnin- 

gerne ogsa skal aendres lidt. 

Da dataerne til bogstaverne fas 
fra computerens ROM er det en 
fordel at have ae, o og a monteret 
i computeren. 

Kort forklaring til programllni- 
erne: 

50-150 Input parametre 
160-180 Pllemarkering 
190-210 Input tekst 
220-400 Print ning 
410-450 Ny tekst? 



460-480 Centering 
Pa demon strationsarket har Para- 
meterne fig. vserdier: 
(bogstavbredde/kode 1/kode 2) 



SUPERPRINT 4/3/127 
4/0/127 

af 4/2/127 

OLE TOFT 2/0/127 

detteer... 1/0/127 

HER ER EN ... 3/0/85 

ST0RRE 6/4/127 

centrering... 1/0/127 

KOMBINATIONER 3/3/119 



Trace 

Det er en god hjaalp ved fejlfin- 
ding at have mulighed for at se, i 
hvilket linienr. maskinen arbef- 
der. 

Ved at indlaese TRACE for det 
program, du skal studere, vil du fa 
det aktuelle linienummer vist pa 
skaermen. 

Et godt program af Henrjk 
Meyer fra Egtved. 




1EM SCREEN — IOOG PTS 



Til VIC-20 

Der er to programmet til VIC-20, 
der begge kan kere uden udvidel- 
se af hukommelsen. 

Det ene er et lllle database- 
program, der skulle vaere selvfor- 
klarende. 

Det andet er et spll - Racerkor- 
sel - hvor det geelder om at und- 
ga at ramme kanten og de spor, 
som racerbilen saetter pa skser- 
men. Ellers er du dod! 

En gang imellem dukker der en 
pokal op, der giver 200 points. 
Disse to spil er lavet af henholds- 
vis Bruno Brosted fra Rodby og 
Per Hoffmann Olsen fra Vording- 
borg. 



APUBUCATlONOF A 
CW COMMUT^CATK>C 
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Centrene 

HAR OGSA ET STORT UDVALG I B0GER 



FRA TEKNISK FORLAG: 

Programmering i Comal 80 149.50 kr. 

Comal 80 Handbogen ca. 175.00 kr. 

Bogen om Commodore 64 145.00 kr. 

CP/M Handbogen 245.00 kr. 

Z80 Programmering 179.00 kr. 

Fa mere ud afdinVIC-20 149.00 kr. 

Dit forste Basic Program 190.00 kr. 



FRA D.C.A.: 

Commodore 64 Disk Companion 178.25 kr. 

Commodore 64 Machine Code 156.25 kr. 

Graphics Guide To The C-64 265.75 kr. 

Will You Still Love Me When I'm 64 156.25 kr. 

C 64 Machine Lang For The Absolute Beginner ...156.25 kr. 
Commodore 64 Games Book 2 156.25 kr. 



FRA BORGENS FORLAG: 

Maskinkodeprogramm. med 6502 168.00 kr. 

Maskinkode med Commodore 64 168.00 kr. 

Basic med Commodore 64 155.00 kr. 

Programm. med Commodore Basic 155.00 kr. 

En samling nyttige Basicprogrammer 225.00 kr. 



Dette erblot et lille udvalg, ring og fa 
katalog tilsendt 

Eller brug annoncen som bestiUing, vi sender 
gerne bogerne til dig. 




Ailerod Boghandel ApS 
M. D. Madensvej 8 
3450 AHered 
02-27 27 70 

Schwartz Data 
Ostergade 17-19 
3200 Hetsinge 
02-294001 

Rensborg Computer 
Stsendertorvet 4 
4000 Roskilde 
02-35 0008 

Nyboder Computer Center 
St. Kongensgade 114 
1264 Kabenhavn K. 

01- 14 1320 

Provestenens 
Computer Center 
Provestenen 14 
3000 Helsinger 

02- 220714 

Ishej Computer Center 
Ishej Bycenter 
2635 Ish0| 
02-73 94 38 

Skovlunde 
Computer Center 
Bybjergvej 6 C 
2740 Skovlunde 

02- 9211 30 

Rensborg 

Kontor&DalaA/S ^ 
Set. Hansgade9 ^a*^"* 
4100Ringsted V*^'*'* - 

03- 61 0011 



rnfiD! itcd 



enrrene 



COIYML 80 SKOLE 




veggie 



Af Henning Randmose 



Hvorfor i alverden skal jeg laere 
Comal? Jeg klarer mig med 
BASIC. 

Ja, hvorfor dog andre pi noget 
man kender, det gar jo meget godt. 
Hvorfor dog fa indlagt elektrisk lys, 
nar den gamle taellepras er sa hyg- 
gelig. Ordsproget siger jo ogsd, at 
den, der ager med stude. ogsa 
kommer frem - maske ikke sa hur- 
tigt eller sa komfortabelt som i bil, 
men alligevel. Og nar man nu med 
mo|e og besveer har laert at skrlve 
med bade romertal og krollede 
bogstaver, sa ma det vsere nok. 

Hvis du er enig i ovensta.ende. sa 
lad vasre med at laase videre. Hvis 
du derimod er traet af at program- 
mere i -stude-farK eller hvis du 
ikke har haft mod til at ga i kast med 
Basic's -krollede" ustrukturerede 
programform, sa folg med i Comal- 
skolen, og laer at skrive overskue- 
lige. letlaeselige og strukturerede 
programmer. 

Lidt historie 

Inden vi gar videre. er lidt historie 
maske pa sin plads. COMAL star for 
COWmon Algotithmic Language. 
Det er "fodt- i Danmark i 1973 af 
Borge R Christensen og Benedict 
Lofstedt. De gjorde simpelthen det, 
at de tog det bedste fra Basic og 
Pascal, samlede det i et nyt pro- 
grarnmeringssprog, som de .kaldte 
COMAL. Allerede fra starten vakte 
det international opmasrksomhed, 
lordi det var lykkedes at sarnie Ba- 
sic's enkelthed og Pascal's kraft og 
strukturering. Nogle kloge hoveder 
tandt hurligt ud af, at det fortjente 
en bedre skaebne. end den der var 
overgaet Basic, som jo var.og er et 
»diaiektsprog«, forstaet saledes. at 
hver computer har sin egen dialekt, 
der ikke forstas af andre- 

I apnl 1984 vedtog man i London 
pa en international standardise- 



rings-konference, hvilke faciliteter 
Comal skulle indeholde. Det bety- 
der, at de programmer du skriver, 
nassten uden eendring kan kore pa 
de fleste computerfabrikater, og at 
du, n6r du har icert at programmere 
i Comal, kan skrive programmer til 
en masngde andre cornputere. 

Standardiseringen, strukturerin- 
gen af programmer, brugen af pro- 
cedurer og funktioner var en af 
grundene til at Danmark - i lighed 
med andre lande - valgte Comal 
som officieil undervisningsprog i 
bade folkeskole og ved de hojere 
leereanstalter. 

Kort og overskueligt 

Del var lidt af baggrunden for spro- 
get. Jeg vil nu med et eksempel 
vise, hvor ( meget lettere det er at 
programmere i Comal. Jeg tror, det 
bedst gores ved at vise en sogeru- 
tine, som de fleste har brugt ,elier 
har b rug for, nar der skal f indes data 
i en database. Her kan der soges pa 
navn, adresse, by, privat og arbejds 
tlf. . samt linie med andre data 

Selv hvis du aldrig har provet at 
programmere, kan du sikkert se, 
hvad jeg mener. nar jeg siger. at 
Comal er et kraftfuldt programme- 
ringssprog. Der kraaves kun 9 over- 
skuelige programlinier for at udfore 
det samme. som Basic der 
45 linier. Dertil kommer, at Basic pa" 
grund af alle GOSUB og GOTO saat- 
ningerne er svaar at laase og forsta. 

Fejl rettes let 

Comal er et »samtale«*program- 
sprog, forstaet pa den m&de. at du, 
hvis du under indtastnmg af et pro- 
gram laver en fejl, omgaende og pa 
DANSK far at vide, hvad der er gait. 
Hvis du laver en forkert strukture- 
ring af dit program, meddeler or- 
dren SCAN (f8) dig det. og med 
hvad der var forventet. 

Tryk pa f4 (AUTO) , og du far au- 
tomatisk tilsat linienumre. Efter at 
have rettet dit program med f5 




(EDIT), renummererer du det med 
f1 (RENUM). Nu vil du gerne se pro- 
grammet, tryk pa f6 (LIST), og pro- 
gramme! ruller frem med indrykket 
programstruktur. 

Inden du gemmer programmet.vil 
du sikre dig, at diskettestationen er 
initialiseret, og det gor du med f2 
(MOUNT), eller vil du kore program- 
met, sa tryk pa f7 (RUN), og det 
korer. 

Problemfri sammenfletning 

Lad os sige, du har to programmer, 
du gerne vil have samlet til et pro- 
gram, og problemet er, at du har 
brugt variablen AS i begge pro- 
grammer - og til to forskellige ting. 
Sa nu skal du - tror du - til at finde 
alle linierne, hvori AS forekommer, 
men nej - det er jo Comal - s§ hvis 
du vil aendre A$ i det ene til f.eks. 
A1$, si taster du bare CHANGE 
»AS«."A1S". og Conmal finder 
samtlige steder, hvor AS forekom- 
mer. Hvis du taster RETURN, om- 
byttes AS til A1$. Hvis du taster 
CBM-tasten, kan du EDITere AS til 
f.eks. A2$ - tast RETURN, og Comal 
finder den nasste lime med AS. 

Nu har du fa.et rettet dit program 
og vil gerne have det koblet sam- 
men med det, du allerede har lavet. 
Intel er lettere. LIST det program, 
der skal kobles sammen med dit 
hovedprogram pa band eller disk. 
Hent hovedprogrammet ind i maski- 
nen, tast MERGE »dit program- 
navn« og RETURN - det program du 
LlSTede bliver nu merget (koblet) 
sammen med det program, du 
havde i maskinen. Nar du lister det 
samlede program ud. vil du se, at 
Comal har sorget for, at det pro- 
gram, du mergede Ind, har faet fort- 
lobende linienumre. der starter.hvor 
dit hovedprogram sluttede - det er 
automatisk renummereret 

Nar hukommelsen er brugt op 

Du er maske blevet sa dygtig til at 
programmere. at dine programmer 
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er blevet sa store og komplekse, sa 
de 30714 bytes, du har til radighed 
ikke er nok. hvad sa? 

Heller ikke noget problem, du la- 
der dine programmer hente hinan- 
den med CHAIN. Maske hardu lavei 
nogle procedures som du sjseldent 
har brug for, men de fylder, og hvis 
du beholder dem i hovedprogram- 
met sinker det dig, nar du henter dit 
program. 

Lad dig ikke irritere, Iseg dem ud 
som EXTERNAL (ekstern) proce- 
dures og du kan nu. uden at asndre 
eller slette variablerne i hovedpro- 
grammet, hente dem ind, n&r du har 
brug for dem. De smides automa- 
tisk ud efter brug. 

Systempakkern e 

Ved hjaelp af de systempakker. der 
er i Cornal-80 version 2.01, er der 
endvidere, udover danske fejlmel- 
dinger, masser af af andre gode 
ting. Du kan durnpe skaermbilledet. 
enten det er tekst eller grafik, di- 
rekte over pa printer fra tastatur un- 
der prograrnudforelse, eller gore 
det programstyret. 

Omdefinering af funktionstaster 
krasver kun ordren 
DEFKEY(x,»tekst«) 
I Basic kraaver det 264 tal + 6 pro- 
gramlinier, at have den mulighed. 

Der er en grafikpakke, en turtle- 
pakke, spritepakke. FONT-pakke 
(design dit eget karaktersaet). lyd- 
pakke (musik). paddlespakke. joy- 
stickpakke og en lyspenpakke, 
Disse pakker indeholder 188 kraf- 
tige ordrer og saatninger udover 
Comal-sprogets 144, sa du forst&r 
sikkert. at jeg kun lige har rort ved 
overfladen, Der er f.eks. 17 skasr- 
mredigeringsmuligheder direkte fra 
tastatur ved hjaelp af CTRL-tasten. 

Neeste nummer 

I naeste nummer vil vi sa starte pa 
det alvorlige. nemlig at skrive pro- 
grammer t Comal. Vi starter skolen 
sadan, at ogsa de, der aldrig har 
prouet at programmere. kan folge 
med. 

Jeg har til sidst noget. jeg skal 
have klemt ud mellem sidebenene: 
Mange forasldre er kede af, at deres 
born sidder og spiller computerspil. 

Kaare fora?!dre. kik nok engang 
pa omstaende 2 programstumper, 
de udforer det samme. Grunden til 
at jeres barn »kun» spiller, kan 
vasre, at vasrktojet (Basic) er for 
svaarl a! bruge. W 
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BASIC: 

IB PRINT'TCLR) 

20 PRINT'NhUN KflN UflERE: " 

38 GOSU050B: rH=X4: PRINT 

10 PRINT 1 flORCSSE KflN 'JflERE: 

50 GOSUB5B0:*i=X«:PRJNT 

60 PRINT' BY KPN UflERE: " 

70 GOSUB500:Bi=Xi:PRINT 

80 PRINT' PRIUflT TLF , KflN UAERE: 

90 GOSUBS00:P*=X*:PRINT 

100 PRINT TLF. ARB. KflN Ufl ERE ! " 

110 GOSUB500; Ti=Xi: PRINT 

120 PRINT ANDET KflN UAERE: 

130 GDSU8500 : K* =Xt : PRINT 

140 FORNR=iT0HAX-l 

150 FUNDET=0 

160 rf'fit*" 7 HENFUNOET =FUNDET 1 1 : G0TO7BB 

1 70 FORHL = 1 TOLENCNfli CNR 3 3-LENCN* )+I 

180 IFPlIDiCNfltCNR KHL.LENCNt 5 3=NtTHENFUN 

DET=FUNDETtl 

190 NEXTHL 

280 IFP4= THENF0NUET=FUN0ETt1:G0TO2'»B 

210 FDRHL = lTOLENtflD4CNR ) T-LENCfl* )tl 

220 IFdlQlCflDlCNR ) .HL .LENCfli ) )=fliTHENFUN 

DET=FUNDETi-l 

230 NEXTHL 

2^0 IFB*= THENFUNOET=FUNDET M ' EOTO280 

250 FORHL = 1 TQLENCBY4 CNR J J-LENCB"* )t 1 

260 IFfllEMCBYiCNR 3 .HL .LENCB4 )3=BiTHENFUN 

DET=FUNQETt1 

770 NEXTHL 

290 IFPi= THENFUNDET=FUNDETtl:GQT032B 

290 FORHL = 1 TOLENCPRif NR J J-LENCP* 1*1 

300 IFWOitPRlfNR ) .HL .LENCPi ))=P4THENFUN 

DE7=FUNDET*1 

310 NEXTHL 

320 IFT4-' THENFUNDET=FUN0ETt1 : GOTO360 

330 FORHL * 1 TQLENC TL4 CNR ) 3-LENC T 4 )r 1 

340 lFfUD4( 1 L4CNR ) .HL .LENC T4 ) )= T4THENFUN 

0ET=FUN0ET+1 

350 NEXTHL 

360 IFK4- THENFUNDET =FUNDET » 1 : GOTOCLINI 
ENR .FOR HENU 3 

370 FORHL = 1 T0LENCKU4CNR ) VLFNCK4 3t 1 
388 IFrlID4(KU4[NR 3 .HL .LENCK4 ) 3 = K4THENFUN 
□ ET ^FDNOETtI 
390 NEXTHL 

400 I FFUNDE T > =6 THENGOSUB C L I N I ENR -FOR UDS 

KR IFTSRUTINE3 

410 NEX1NR 

500 P0KE19.I 

518 INPUT* 4 

520 POKE 19.0 

530 RETURN 



COMAL 80 : 

0010 PROC *aeg 
8820 PAGE 

0030 INPUT AT 22. l: indtast soegBord: 

; * a eg© 4 
0040 FOR nr:=l TO max 00 

B05B str»ns4;=n4(nr Jta4Cn» J+bi(nr )tp 

4tnr iTiiCnr )tkt[nr 3 

006B IF (o»9»i IN ctr«ns* THEN skrlu 

Cnr ) 

0B78 ENOrOR nr 

0080 fn*nu 

B090 ENDPROF ia«9 




TAL TIDSSKRIFTER 
MED MUNKSGAARD 

- det ved vi noget om , 



Munksgaard har Danmarks sterste tidsskrittaldelmg 
med ca. 50 000 abonnemenler; sa uansei det dreier sig 
om BYTE, CQMPUTERWQRLD, DATAMATION, 
NATIONAL GEOGR APHIC MAGAZINE eller el andel 

tidsskrift, kan vi lorrTMdleabonnementel. 

For ai hunne yde den bedste service, betjener vl os al 
den mest avancerede EDB-te knik pa on-line basis. 

Vil De here mere om de mange tordele ved at placere 
tidsskriftabonnementer hos os - sa ring eller skri v lit 



MUNKSGAARD TIDSSKRiFTSERVICE 

NorreSogac3e35 ■ i370KebenhavnK ■ Til. (01) 12 85 70 



4&/mr og fle'r bruger BWW-programmer 

r^/Hvorfor mon? - Jo lordi vl iaver sardeles brugervenllge og al- 
'rnystificerede programmer, hvor du trygt kan ga Igang med det 
samme uden torsi at ta?se en 100-siders vejledning 

8WW-TEKST (med AE0A »0a) disk kr. 607.- 
BWW-TEKST (med /E0A aaoa) bandkr. 548.- 

Menustyret tekstbehandling med mulighed tor at bruge grafikiasterne 

BWW-MIX di/b kr. 98.- 

Yatzy - Master Mind - Ordmix 



NYHEDER NYHEDER NYHEDER NYHEDER 



BWW-EDIT (£0A aeoa) disk kr. 698.- 

Et godt altemativ I lutdskaermseditenng (nu ogsa pa dansk) 

BWW-MULTICARD (/EOAeeod) disk kr. 498.- 

Kartoteksprograrnmei du selv kan tilpasse. 
desuden kan del ogsfl summere 

BWW-ANNUITET di/b kr. 298.- 

Albeialingsprogrammel enhver torretnmg bor have. 

BWW-KOPIERING disk kr. 158.- 
BWW-TEGNS/ET di/bkr. 98.- 

BWW-SOFTWARE 

Iaver desuden bestillingsarbejde pa programmer til C 64. 



B\X/\X/ 

SOFTWARE 



triltegirdsvej 206 
8210&rhus v, tlf. (06)152710 



Ogsa salgtit 
forhandlere- 
fa besog af vor 
systemkonsulent 



Har du Drug lo* tl lys* tekslbehamHiog moo lyske lean p& staorm og pnrtf , Wn vt nu ocsa 
^vise dig o\ sAOm. >det W Mr lavel BWW-TEXTSTAR lit ad lyskB mar*od iofdnu en nyhwr 
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Commodore - MARKED 



C0MPUTER8UTIKKEN har de serlese 
programmer til Commodore 64 

VIZASTAR 

BUDGET/DATABAS&GRAFIK 
Programmel merJ LOTUS 1-2-3 facillleter 

VIZASTAR XL4, cartridge, 

diskette sam i god manual 1 .675,- 

VIZASTAR XL8, cartridge med ekstra 
8 KRAM, disKette, brugermanual, med 
mullghed for udskrift af Pie-charis. 

VIZASTAR XL4 2.225,- 

Ring og bestll vor specialbroohure! 

v/ Akademisk Boghandei - Vesiergade 58A 
B000 Arhus C - Tit 06-13 20 55 



Fa mere ud af 
din Commodore 
hjemmecomputer 

Dansk Tidsskrift med tips 
og ideer. 

Pravenummer tilsendes. 

Basic Programmering 

Narholmvej 8 
8740 Brasdstrup 

Tlf. 05-761518 



Commodore special isten 
Byens billigste! 

Commodore 64 
SX-64-C16* Plus/4 
Diskettestation 1541 

Printer MPS-801 

Printer MPS-802 
Monitor 1701 

l=rhvervsprog rammer, lege programmer, 
tilbehor, EDB-borde, 

Vi nar del hele 1 

Ring og f& 
etgodttilbud 

M\BOUk 

/MIKRODATk 

BUTNiUJIili H7 - 2lOOKMWi>w>0 

■ omixjm 




PSMIHADDDRE B4, 



BUV LAMER FQfl KM KH 



2 ■ ■ 




_asniiiiiiu 

BBBEBB 



* CSI 



Lagerudvidelses-kit for 
Commodore PC 10/PC 20 

Ker SYMPHONY etc. pa PC'en og 
Spar op til kr. 1500,- 

Moloch-512; 
256k-512k bytes: 

kr.2195,-excl. moms 

9 lagerkredse 

1 adressedekc-dnings-PAL 

1 installationsvejledning pa dansk 

Molo-ch-640: 
S12k-640k bytes: 

kr. 1095,- excl, moms 

9 lagerkredse 

1 installationsvejledning pa dansk 
Moloch Software ApS 

Genforcningspladsen 47st th 
2400 khh.NV 
Kontakt- Tlf. 01-10 87 16 



REPARATION 

Er microdatamaten gaet I 
styttker? 

Ring og fa en snak om proolemet, eller 
send datamatan til ds med posten. 
Vi reparerer hurtigt og billigt og vi giver 
gerne el tilbud ferst. 
Vi saelger ogsa reservedele og tilbeher. 




GR0NH0J 
elektronik 

v. Frode Harritz 
Menstedve) 35 

7470 Karup 
Tlf. 06-66 11 56 



Salgsafdelingen 
Blakildecentret 18 
2630 Tistrup 
02-99 93 71 



LITTERATURSERVICE 

SA-171 Mitchell Waite: The Official Book for Commodore 128 
Engelsk 21 0 sider. Howard Sams 1985, kr. 214.00 

SA-119 Robert C. Brenner: Commodore 64 Troubleshooting & Repair Guide 
Engelsk 176 sider, Howard Sams 1985, kr. 324.00 

SY-1 15 James W. Coffron: Commodore 64 Connection 
Engelsk 255 sider, SYBEX 1985, kr. 254.00 

SY-1 44 Richard Allen King: Dus med Commodore 64 
Engelsk 225 sider, SYBEX 1985, kr. 299.00 

CB-002 Kurt Friis Hansen: Dus med Commodore 64/PLUS 4 
Dansk 300 sider. C & B 1984. kr. 198.00 

C & B Mikrodatainformation har Dan marks storste udvalg af Computerlitteratur. 

FOR LANG BOGKATALOG 
Vi har mange nedsatte bsger til VIC 20 (rekvirer bogl-iste). 
Bogerne leveres fragtfrit over hele landet. 



Traet af f BASIC ? 



Af Robin Sagar 

Ligesom de t er tilfaeldet for de fleste 
andre hjemmecomputere. er Com- 
modore 64 -fodt" rned BASIC. 
Commodore-Basic er ofle blevet 
kritiseret for dets mangier, og der er 
dertor udviklet mange forsketlige 
»ekstra-BASIC«-moduler for at 
kompensere for manglerne (se 
RUN nr.4/85). 

Wan bor imidlerlld huske, at Ba- 
sic ikke er det enesle programme- 
ringssprog, der kan anvendes pa en 
64'er. Der findes faktisk en hel del 
andre muligheder. og denne artikel 
vil forsoge at introducere nogle af 
dem. 

BASIC er et eksempel pa det. vi 
forstar ved et hojniveau-sprog. 
Dette betyder bl.a., at dets kom- 
mandoer ligner almindelig engelsk. 
Det betyder ogsa, at for et Basic- 
program kan »kores«, skal det for- 
tolkes (»konverteres») linie for linie 
til maskinkode, eftersom compute- 
ren i sig selv kun kan forsta det 
mest simple lavniveau-sprog (ma- 
skinkode). 

Som illustration af, hvordan com- 
putersprogene har udviklet sig, bru- 
ges ofte et tras, hvor rodderne er 
maskinkode, stammen er oversast- 
tere og fortolkere. og grenene er de 
forskellige hojniveausprog. Herud- 
over har nogle af grenene forskel- 
lige sidegrene, der illustrerer el op- 
rindeligt sprogs forandring og ud- 
vikling. Hvad man specielt borvaare 
opmaerksom pa., ef at jo taattere 
man er pa traeet rodder, des hurti- 
gere bliver svartiderne. F.eks. afvik- 
les et maskinkodeprogram som be- 
kendt betydelig hurtigere end et 
BASIC-program. 

ADA 

Hvis du ikke tidligere har hort om 
dette sprog. skal du ikke fortvivle. 
Jeg horte forst om det for nylig. 
ADA er udviklet t«l brug pa store 
computere, og blev oprindelig an- 
vendt til atv styre det amerlkanske 




raketprogram. Navnet ADA stam- 
mer fra Grevinde ADA Lovelace, der 
ofte betragtes som verdens forste 
programmer. 

ADA er et hojniveausprog. der 
«formidler« instruktioner til compu- 
teren. Teoretisk ville man kunne 
skrive et program i BASIC og deref- 
ter lade ADA konvertere det til As- 
sembler. ADA til CBM64 er udsendt 
af det engelske firma First Software. 
Pakken bestar af en diskette og en 
ovelsesmanual pa 80 sider. Wanua- 
len er velskrevet, og enhver med et 
rtmeligt kendskab til engelsk. skulls 
vasre i stand til at bruge den uden 
besvser. Disketten indeholder mo- 
duler til redigering, syntaks^ og 
grammatikkontrol samt assembler 
og disassembler. Desuden er der 
flere andre brugbare ADA-rutiner. 

Hovedprogrammet er "Editoren" 
(redigering). Via denne kan et pro- 
gram skrives i et hojniveausprog, 
inden det konverteres til Assem- 
bler. Nar man har skrevet et pro- 
gram, vil det naaste skridt vaare, at 
oversastte det til maskinkode. Inden 
man bruger Assembleren, bliver 
programme! testet af syntaks- og 
grammatikkontrollerne. Disassem- 
bler-modulet er kun med, hvis man 
senere vil checke programmet i ma- 
skinkode. En af oversaetterrutinens 
fordele er, at der i maskinkadepro- 
grammet kan indsasttes en saerlig 
funktion til fejlmelding. 

For mange 64-ejere, der indtil nu 
har mattet nojes med Basic, vil ADA 
sikkert vasre en god made at kunne 
konvertere programmer til maskin- 
kode. Hvis man mere er inter- 
esseret t selve sproget ADA. kan 
jeg anbefale bogen »ADA. an intro- 
duction- af Sabina Saib. 

COMAL 

Naest efter Basic, er Comal nok 
det bedst kendte computersprog 
her i Danmark. En af grundene er 
naturligvis, at sproget er udviklet 
her i landet. 




TtLoT 



Da Comal imidlertid bliver be- 
handlet andetsteds i bladet og har 
vaeret behandlet tidligere, vil jeg 
henvise interesseredev dertil. 

FORTH 

Forth er et hojniveausprog udviklet 
af Charles Moore i begyndelsen af 
60'erne som et sprog. der skulle 
bruges til styring af radiotelesko- 
per. Senere erdet bl.a. brugt til kon- 
trol af hospitalers intenssvafdelin- 
ger. Desuden anvendes sproget 
ofte til at skrive Arcade-spil. Spro- 
get var oprindelig ment som et 
»fjerde-generations»-sprog og ho- 
rer til typen, der bliver »oversat« i 
stedet for at blive '>fortolket«. 

Forth er et usasdvanligt og spasn- 
dende sprog. Det har mange for- 
dele i forhold til andre hojniveau- 
sprog. F.eks. er det meget hurtigt 
(10 gange hurtigere end Basic), og 
desuden er det meget kompakt, 
hvllket gor det saerdeles velegnet 
for en computer som 64'eren, hvor 
hukommelsen er ret begraenset. Pa 
grund af sprogets logiske stroktur 
er det nemt at finde og rette fejl. 
Herudover er Forth et sprog, der 
kan -udvides- og »vokse« i forhold 
til brugen af det. Dette skal |eg kort 
forklare ved en beskrivelse af struk- 
turen i Forth 

Det ussedvanlige ved Forth er 
netop dets struktur. Lassere der er 
vant til at skrive Basic programmer 
ved. at et Basicprogram bestar af 
en serie linier, som er nummereret, 
og som indeholder en eller flere 
kommandoer eller instruktioner. 
Nar programme! er faardigt, og man 
korer det, gennemgar cornputeren 
en linie ad gangen, og udforer de 
givne instruktioner. 

Forth er imidlertid helt anderle- 
des. For det forste er der ingen lini- 
enumre. og for det andet er der in- 
gen RUN-kommando. Det man gor, 
nSr man arbejder med Forth, er at 
man - i stedet for at skrive et pro- 
gram - konstruerer en serie applika- 
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fioner, som hver isasr defineres ved 
hjffilp af et ord. Ethvert nyt ord, man 
har defineret, kommer til at indga i 
Forth's "ordliste- og kan senere 
bruges til al danne nye ord. Nar 
»ordlisten« indevholder tilstraekke- 
lig mange ord, kan man danne en 
pyramidelignende applikation, der 
sseites i gang via det overste ord i 
pyramiden. 

Del kan godt tage nogen tid at 
bllve fortrolig med Forth. Specieli 
maske for Basic-programmorer. 
men ogsa fordi sproget benytter 
"Stack—aritmetik, og fordi bereg- 
ningsmeloden er den sakaldte »om- 
vendt notation-. 

Der findes forskellige versioner 
af Forth pa markedet. Den bedste til 
Commodore 64 er formentlig 
FORTH 4- fra Melbourne House. 
Sproget findes pa et kassetteb^nd, 
som turbo-loades. Nfir forst det er 
loaded, kan det dog nemt konverte- 
res til diskette. En god ting ved 
FORTH + er, at det udnytter 
64'erens hukommelse meget effek- 
tivt. saledes at brugerens arbe|dsa- 
real er sa godt som intakt. I 
FORTH + finder man alle standard 
Forth-kommandoer, ligesom der er 
grafikinstruktioner, der gor det mu- 
ligt, at skifte mellem flere farver, 
normal farve, udvidet baggrunds- 
farve og hojoplosningsgrafik - alt 
5ammen via en enkelt kommando. 
Der er ogs5 kommandoer til avan- 
ceret brug af lyd og udnyttelse af 
joystick-portene. FORTH + inde- 
holder endvidere en indbygget As- 
sembler. For at bruge den, er det 
dog nodvendigt med en fuld forsta- 
else for Forth, samt en god indsigt 
i 6502-Assembler. 

Med pakken folger desuden en 
40-siders handbog, som daakker 
alle aspekter af Forth rimelig godt. 
Oer mangier dog en egentlig ovel- 
sesvejledning for nybegynderen. 

For de, der vil vide mere om 
Forth, vil jeg anbefale bogerne 
"Thinking FORTH- (Brodie) og »Go 
FORTH - An Introduction" (Kail). 

LOGO 

Logo er udviklet af professor Sey- 
mour Paperl fra Massachusetts In- 
stitute of Tecnology i forbindelse 
med nans forskning inden for kun- 
stig intelligens. 

HovedformaJet med Logo er at 
give brugeren en fornemmelse af , at 
han har »magten« over compute- 
ren. Det er forst og frerrmest ment 



som et redskab til i undervisnings- 
sammenhasnge at Isere skoleelever 
at bruge computere og dermed 
ogsa tasnke logisk. Logo er meget 
nemt at Isere og bruge p.g.a. de 
enkle kommandostrukturer og op- 
bygning af programnutiner. De ef- 
terhanden mange forskellige versi- 
oner, der nu findes, indeholder alle 
den verdensberomte -skildpadde- 
grafik-". 

Vi har allerede i et tidligere num- 
mer lavet en fyldig omtale af Logo, 
og her konkluderede vi, at den ver- 
sion af sproget, som kan fas til 
CBM64, absolut kan anbefales. Ud 
over skildpaddegrafik indeholder 
denne version ogsa elementer. der 
muliggor en avanceret udnyttelse af 
64'erens fine lyd- og spritefacilite- 
ter. 

PASCAL 

Pascal er formentlig det mest popu- 
laere og benyttede programme- 
ringssprog nsest efter Basic. Bru- 
gen af det har dog for det meste 
vaaret begraanset til de mere pro- 
fessionelle omrSder af softwareud- 
vikling. Pascal er et eksempel pa et 
••oversat- sprog, som derfor er be- 
tydelig hurtigere end f.eks. Basic, 
der er et »fortolket« sprog Der An- 
des flere forskellige versioner af Pa- 
scal til CBM64. hvoraf de mest ud- 
bredte (og formentlig beste) er OX- 
FORD PASCAL og PASCAL 64. 

Pascal er udviklet af den schwei- 
ziske professor N. Wirth, og navnet 
stammer fra den franske matemati- 
ker Blaise Pascal, der er en af pio- 
nererne indenfor computerpro- 
grammering. Sproget blev udviklet 
for at overvinde nogle af fejlene ved 
Basic, og for al tilbyde et strukture- 
ret indlasringsprogramsprog. 

At skrive strukturerede program- 
mer krasver diciplm, og det gaelder 
sa sandelig ogsa for Pascal. Et pro- 
gram skrives i blokke. hvor hver 
blok eller rutlne i sig selv er et Nile 
program eller modul. Fordelen ved 
denne metode er den logiske made, 
hvorpa programrnerne opbygges, 
samt den kendsgerning, at hver 
blok kan testes individuelt og gen- 
bruges i andre programmer, uden 
frygt for at den ikke fungerer. 

PILOT 

Det forste man ma gore sig klart er, 
at Pilot ikke er noget flysimulation- 
sprogram. Det er et programme- 
ringssprog, som blev udviklet I be- 



gyndelsen af 70'erne pi University 
of California. Pilot er forkortelsen 
for Programmed Inquiry Learning 
Or Teaching. Det er menl som et 
redskab i undervisningssektoren. 
Pilot er specielt beregnet p£ sakaldt 
dialogprogrammering, og kan med 
stor fordel anvendes til at udvikte de 
kendte »multiple-choise»-opgaver 
med et sporgsmal og et antal svar- 
muligheder. Sproget er endvidere 
meget peedagogisk derved. at det 
kan tage hojde for elevernes stave- 
fejl i svarene. Her kan naavnes den 
vigtige Pilot-kommando MATCH. 
Ved at bruge denne kommando kan 
programmoren (f.eks. laareren) be- 
stemme. hvor prascist et svar beho- 
ver at vasre, og hvordan program- 
met ska! re age re pa elevernes svar. 

Til Commodore 64 kan Pilot kun 
fas i en disketteversion. Systemdi- 
sketten bestar dels af Pilot-pro- 
grammet, der bruges i forbindelse 
med at lave programrutiner, og dels 
en del af Pilot, der skal anvendes i 
forbindelse med korslen af det fasr- 
dige program. En af forskellene 
mellem de to dele er. at det i den 
sidstnaevnte del ikke er multgt, at 
anvende kommandoer til listning og 
redigering af programmer. En effek- 
tiv metode til beskyttelse af sine 
programmer. 

I Pilot opererer man med fire for- 
skellige tilstande: 1 IMMEDIATE- 
mode, hvor man kommunikerer di- 
rekte med computeren. I denne til- 
stand kan man eksperimentere med 
tekst pa skasrmen, bruge Pilots gra- 
fikinstruktioner eller udfore mate- 
matiske beregnmger. 2. EDIT- 
mode. hvor man skriver og retter 
programmer. 3. COMMAND-mode. 
som bruges i forbindelse med at li- 
sle, save og printe programmer. 4. 
RUN-mode. som vist ikke krsever 
nogen torklaring. 

Specielt for Pilot er det. at spro- 
get ikke bestar at ret meget mere 
end 25 instruktioner. Hver instruk- 
tion kan herudover skrives som en 
et- eller tobogstavs forkortelse. 
Endvider skal det nsevnes. at man 
ved at udnytte Pilots grafik- og spri- 
teinstruktioner kan opbygge sit 
eget tegnsset (altsa f.eks. aa. o og 
a). 

Mulighederne for at anvende Pi- 
lot i undervisningssammenhaeng 
synes endelose og sproget er der- 
for et velkomment supplement til de 
to andre sprog fra Commodore, 
nemlig LOGO og COMAL. ■ 
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A( Robin Sagar 

Vefkommen til den 2. eventyr side. 
Der har vaeret en pause her i som- 
mer. Den har givet mlg tld til at 
kigge pi nogle af de spil, jeg 
skulle have fuldfert for leenge si- 
den. 

Jeg har ogsa 1aet set pa nogle af 
de nyeste spil, der er kommet, sa 
lad os tage fat fra en ende af... 

Examine 

Efter at have ventet nogle maneder, 
har jeg for nylig f&et nogle spil, som 
|eg havde hort og laest en hel del 
om. og som jeg naturligvis onskede 
at prove. Der er fire titler fra det 
amerlkanske firma -TRILLUM*. som 
nu bliver importeret til Danmark af 
Twilight. Hvert spil er baseret pa en 
kendt bog eller skrevet af en kendt 
forfatter, og vil henvende sig til 
science-fiction og science fantasy 
fans. De fire titler i serien er »AMA- 
ZONE» af Michael Chrichton, -FAH- 
RENHEIT 451« af Ray Breadbury. 
-RENDEVOUZ WITH RAMA<« af Art- 
hur C. Clarke og endelig 

-•DRAGONWORLD- af Preiss og 
Reavers. 

Hvert af disse eventyrspil er pa 
diskette. Dragonworld fylder fern 
medens de tre andre »kun« fylder 
fire. En anden interessant ting ved 
disse spil er, at de hver indeholder 
et arcade spil. Der skal for eksem- 
pel ved en del af spillet bruges joy- 
stick. Pakningen er helt i top, og 
hvert spil indeholder en detaljeret 
instruktionsbog, der ikke kunv for- 
taeller, hvordan man »loade« og 
»save« spiElet, men den indeholder 
desuden en omfattende ordliste og 
kodede hints (tips) om, hvordan 
man skal forholde sig, hvis man g&r 
i sta. Spillene er tekst/grafik even- 
tyrspil, og i Dragonworld og Fahren- 
heit 451 er billedet splittet op I 3 
forskellige billeder overs! pa skaar- 
men. Dette giver mullghed for at 
aandre enten hojre, midten eller 




venstre side af billedet uden a( 
slette hele skasrmen - 1 det rrtindste 
er det den effekt. som spillet giver. 
Skont jeg ikke er nogen fan af grafik 
i eventyrspil (den bedste grafik er 
den. man selv forestlller sig), mS jeg ' 
alligevel give mit komplirnent til Trit- 
ium for grafikken i de fire spil, som 
jeg har afprovet Min eneste kritik 
g&r pa. at Amazone loader grafikken 
meget langsomt - dette har irriteret 
mig en hel del, 

Disse diskette-eventyr er ikke 
billige, men jeg synes. at der er pen- 
gene vaerd. Spillene folger noje den 
bog. de er bygget over, og spilleren 
tager rollen som hovedpersonen. 
Derfor kan det hjaslpe at have laest 
bogen forst. 

En anden god ting ved disse spil 
er muligheden for at save mange 
gange. Dette betyder naturligvis, at 
brugeren skal lave en save-diskette 
forud for start, og pS denne kan der 
saves op til 1 0 positioner pa samme 
diskette. Hvad der er godt ved 
dette, er at det savede ikke kun fSr 
et nummer, men der er ogsa plads 
til en kort tekst. 

AMAZON 

Som navnet siger, foregar dette spil 
I den sydamerikanske jungle. I be- 
gyndelsen af spillet befinder du dig 
i NSRT's kontrolrum. NRST betyder 
National Satelite Resource Techno- 
logy Centre. Du venter pa besked - 
via satelit - fra Amazon ekspeditio- 
nen. Her folger der en fantastisk 
grafisk sekvens. Computeren viser 
dig, hvordan tejren ser ud. Dode, 
braandende telte og til sidst et 



skraekkeligt ansigt, lige for trans- 
rnissionen bliver afbrudt. Det er her, 
spillet rigtigt begynder. Nar man 
har sit udstyr, og har fundet alle de 
oplysninger, man behover. bliver du 
og papegojen Paco efterladt i jung- 
len, og skal finde og heist redde de 
resterende medlemmer af ekspedi- 
tlonen. Amazon har tre niveauer og 
flere valgmuligheder - derfor vil spil- 
let hver gang give dig forskellige re- 
sultater. 

AMAZON 



MICHAEL CRICHTON 




FAHRENHEIT 451 

Her befinder vi os i New York en 
gang I fremtiden. Det at laase og eje 
boger er ulovligt, og en brand- 
mands job er at braende boger - 
ikke at slukke ildebrande. Du er Guy 
Montag. der Indtil for nylig har vaaret 
brandrnand, men som nu er flygt- 
ning, og medlem af den illegale un- 
dergrundsbevasgelse. Malet for 
dette spil er, at redde menneskehe- 
den fra brandmaend. 
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For at kunne gore dette. er del 
nodvendigt at finde din veninde Cla- 
rissa, og at kommunikere med de 
andre medlemmer af undergrunds- 
bevasgelsen. Pas pa hvorledes du 
gor det, da de mekaniske hunde er 
i hselene pa dig. Du skal ogsa huske 
den litterasre ration. Du f&r tiJdelt af 
de andre undergrundsmedlemmer, 
ellers vil det blive umuligt at kom- 
munikere senere i spillet. 



RENDEVOUZ WITH RAMA 

Her kommer du ud i rummet 6r 
2130. Et ksernperumskib (Rama) er 
kommet ind i dit solsystem, og sty- 
rer nu mod solen. Som chef for det 
rumskib, der er nasrmest Rama, er 

RENDEZVOUS WH RAMA 



ARTHUR C. C L A R K f. 




det din opgave at lande pa kaempe- 
skibet, undersoge og hvis det er 
muligt stoppe det. Hvis dette ikke er 
muligt. sa i det mindsts flygte fra 
det, for det knuses mod solen. 



DRAGONWORLD 

Spillet har en fantacy roman som sit 
tema. I spillet er du Amsel fra Fan- 
dora, en videnskabsmand. Spillet 
begynder lige efter den sidste 
drage er blevet kidnappet. Du har 
den mystiske drageperle, sorn giver 
dig den rneddelelse. at dragen hol- 
des fanget i landet sydpa. Din efter- 
sogning for at befri den sidste 
drage er begyndt Fra dit hjemland 
Fandora er det nodvendigt via sove- 
jen at komme til Simbala, og der 
finde din ven Hawkind. Du skal for- 
soge at overtale Hawkind til at folge 
med dig i eftersogningen til landet 
sydpa. for at redde den sidste 
drage. Denne eftersogning er lang 
og farefuld. Det vil hjaelpe. at ove sig 
pa de tre »action« sekvenser torst. 



DRAGONW3RLD 




Boger 

En af de bedste boger, jeg har laest 
fornylig, er "Guide to Adventure Ga- 
mes- af Gary McGath, udgivet af 
Compute). Det er en 200 sider lang 
bog med mange interessante tips. 
Desuden beskaeftiger denne bog 
sig ogsa med historien bag adven- 
ture spil, hvordan de spilles, skrives 
og hvilke spil, der er de bedste. Der 
er kapitler om de store adventure- 
huse som Infocom, Scott. Adams 
og Sierra on-line. I bogens sidste 
kapitel giver forfatteren sit syn pa\ 
hvordan han tror adventurespillene 
vil udvikle sig i fremtiden. 

»Der er et lidspunkt i enhver 
computerejers liv, hvor han bliver 
traet af at nedskyde rumveesener-. 
Sadan starter bogen -Writing Stra- 
tegy Games on Your Commodore 
64» af John White og udgivet af 
Sunshine Books. Et strategy spil er 
et spil, hvor dine kommandoer til 
64'eren fremprovokerer et svar fra 
computeren, som sa pa en made er 
"intelligent". De bedste eksempler 
pa strategy-spil er forskellige for- 
mer for skak. og denne bog beskri- 
ver, hvordan den slags spil skrives, 
og den indeholder ogsa program- 
listninger til skaksubrutiner. hexa- 
pawn og andre mindre strategy-spil. 
Bogen henvender sig til almindelige 
laasere med interesse for »intelli- 
gente» spil. 



HELP 

Det er ganske nalurligt, at laasere 
sidder fast i et adventurespil. og der 
er ofte et tidspunkt, efter at have 
provet forgaaves i timevis for at lose 
et problem, hvor du giver op og 
svserger aldng mere at rore et ad- 
venture spil Fortvivl ikke mere. 



RUN's adventure-spalte vil hjaelpe 
dig, hvis det er muligt. Til en start er 
her nogle tips til nogle af de kendte 
adventure-spil: 

Classic Adventure 

Husk at slanger ikke kan tide fugle. 

Claymore Castle 

For at ibne bogen, kast den ned fra 
toftsrum. 

Pirate Adventure 

For at skaffe et mandskab tii dit 
skib, si husk at pirater ofte f alder I 
sovn efter at have drukket. og har 
en tendens tit at smadre ffasker. 

Hampstead 

Det er nodvendigt at have to ting, 
for manden i toget vil tale med dig. 
En afdem har noget med industriat 
gore, den anden er kunstnerisk. 

Ikke flere tips denne gang, men i 
stedet et nodrSb. 

Jeg sidder fast i Activisions Minds- 
hadow. Jeg er kommet til London, 
og har fiet pengene. Hvor kan jeg 
kobe en flybillet til Luxemburg? 

Tilbud 

RUN er glad for, i denne mined at 
kunne tilbyde "The Diploma* til alle 
som har fuldfort Hampstead. Dette 
er et meget flot dtplom, der er sig- 
neret af spil lets skafcere, Trevor Le- 
ver og Peter Jones, og er lavet spe- 
cielt til Melbourn House og RUN. 
Hvis du vil have et diplom, m§ du 
indsende et bevis pa\, at du har fuld- 
fort spillet. Du skal skynde dig at 
skrive ind, da vi kun har "lOdiplomer, 
og de vil blive givet til de torste 10, 
der skriver ind. 



Punktum 

Dette er sfi alt for denne gang. Fo- 
relobig har Jeg modtaget et par ad- 
venture-spil pa dansk. Jeg skrev i 
sidste nummer og efterlyste dansk/ 
norske spil, og bl.a. Jannik Bo Ras- 
mussen fra Rodovre har sendt mig 
en diskette med et spil, som han har 
lavet med inspiration fra "Colossal 
Cavas». Jeg har endnu ikke spillet 
Janniks spil s§ mange gange 
endnu, men i naaste nummer af 
RUN vil jeg anmeldelse det. Des- 
uden vil jeg skrive om spil fra Spin- 
neker Software, og om det sidste 
nye fra Infocom. Plus et lilies stykke 
fra det engelske softwarehus "Level 
9 Computing-. ■ 
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!R,u*t fatten 



JUKI 6100 



Nar man skal teste et stykke 
hardware som f.eks. en printer, 
kan man ga to veje. Man kan 
mere eller mindre splitte den ad 
og komme med en grundlg - 
men for de fleste mennesker 
uforstaelig - gennemgang, eller 
man kan vurdere den ud fra den 
almindelige brugers synspunkt 
og behov. Vi vil her 1 RUN 
hovedsalig anleegge den sidste 
tinie ved gennemgangen af 
produkter til PC'eren. 

Det forste udstyr. man skal beslutte 
sig til efter at have anskaffet sig en 
PC'er, er en printer I almindelighed 
star vaiget mellem en matrixprinter 
eller en typehjulsprinter. En matrix- 
printer har et skrivehoved, der be- 
star af en rsekke sma. stifter, der 
individuelt kan »hamres« mod farve- 
bandet og pa den made danne tegn. 
der be star af en raakke sma punk- 
ter, En typehjulsprinter har derimod 
faste tegn, og fungerer pa. nojagtig 
samme made som en skrivema- 
skine - blot mangier tastaturet. 

Begge typer har deres fordele og 
ulemper. Matrixprinteren er hurti- 
gere. fylder mindre, og er billigere. 
Til gengseld nar resultatet ikke op 
pa siden af en typehjulsprinter, der 
leverer en kvalitet, der er professio- 
nal og heit i top.vJUKl 6100 er en 
typehjulsprinter i den overkomme- 
lige ende af prisskalaen. Den koster 
i grundmodellen kr. 6.500,00 og 
med traktordrev eller arkfoder hen- 
holdsvis kr. 8.100.00 og kr. 9650,00 
(alle priser excl. moms). 

Der medfolger en manual pa 168 
sider, der pa de forste ca, 40 sider 
Mart og tydeligt forklarer og illustre- 
rer. hvorledes printeren installeres. 
Resten af manualen er af mere tek- 
nisk art og af mindre intesse for den 
almindelige bruger 

Betjeningspanelet pa forsiden er 
sa enkelt, som det naesten er mu- 
ligt. Du kan indstille. hvor mange 
tegn, du onsker at skrive pr. tomme 



(10, 12 eller 15J. Du kan ogsa vaslge 
-PS", hvilket star for proportional- 
skrift VGd denne udskriftsform bli- 
ver afstanden mellem bade de en- 
kelte bogstaver og de enkelte ord 
jsevnet ligeligt ud (proportional!) , og 
resultatet bliver en paen lige ven- 
stre- og hojremargen (som spal- 
terne her I bladet}. 

Desuden findes en kontakt for 
form-feed (korer papiret frem) og 
en pause og resetknap. De to sidste 
laarer man at paskonne. da printer- 
ens stojniveau er for hojt til at fore 
en almindelig telefonsamtale. mens 
den arbejder. Det voider imidlertid 
ingen problemer at stoppe/starte 
printeren, idet der ikke mistes no- 
get i udskriften. 



nSr der er tale om understregning 
eller fed skrift, idet printeren her ma 
skrive samme tegn flere gange - en 
anelse forskudt. 

Man behover normalt ikke be- 
kymre sig om. hvorledes disse ting 
(ungerer i praksis, da styringenv 
saedvanligvis er indbygget i den 
software, man anvender, 

Printeren kan anvendes sammen 
med de fleste computere (ogsa en 
64 'er), og vi har provet den sammen 
med en PC'10 og tekstbehandlings- 
systemerne -Word Perfect* og 
■■Dantekst" (anmeldes i senere 
numre af RUN). Word Perfect havde 
ikke JUKIen som »standardprin- 
ter«, hvis vi lod som om det var en 
Brother HR-15, gik det fint. 




Printeren kan med samme type- 
hjul skrive flere skriftformer. spaan- 
dende fra "normal" skrift til fed 
skrift. Disse skriftformer kan igen 
kombineres med evt. understreg- 
ning, og endelig kan en tekst rykkes 
en halv iinia op eller ned. 

Printeren skriver normalt med 17 
tegn i sekundet, hvilket svarer til 
omkring 1000 tegn i minuttet. Ha- 
stigheden er dog vaesentlig lavere, 



Konklusion 

Vi satte JUKI'en pa en arbejdsmses- 
sig hard prove pa redaktionen. Vi 
har flere gange brugt den i dogn- 
drift. og det er ikke smating. den har 
skrevet ud (bl.a. 2 numre af RUN) - 
uden mislyde af nogen art. 

Den er nem at installere og an- 
vende. og for relativt sma penge far 
man en rigtig arbejdshest. omend 
den maske vrinsker lidt hojt. 
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Klip kuponenud 

og send den i en lukket konvol ut til 
RUN Commodore-magasin, 
Torvegade52. 1400 Kobenhavn K 



□ Jeg onsker at tegne et helarsabonnement ( 1 0 numre) 
og sparer 20%. Fodselsdagstilbud kr. 196.- 

□ Jeg onsker at tegne et halvarsabonnement (5 numre) 
og sparer 15%. Fodselsdagstilbud kr. 104,- 

Jeg onsker bladet leveret fra nr. 



Navn: 

XAdresse: 
Postnummer: 




By 



o technological endeavor in the history of 
mankind has advanced as rapidly as ihe com- 
puter industry in the last 40 years. Keeping 
pace with change like this requires timely, relia- 
ble information. 

That's where we come in. We're CW Com- 
munications. Inc. - the world's largest publis- 
her of computer-related newspapers and maga- 
zines. More than 9,000,000 computer-involved 
people around the world rely on us for the in- 
formation they need to stay ahead. 

If you market products or services to these 
decision-makers around ihe world - or would 
like to - our international marketing division 
can hei you. CW International Marketing 
Services (SWIMS) gives you access to a net- 
work of more than 50 publications in over 25 
countries around the world. And, we have over 
10 vears experience in international marketing. 

We'll help you reach ihe MIS/ DP excecu- 
lives who are responsible for computer tech- 
nology at medium to large organizations. We 
have 26 publications devoted to their interests 
in Argentina, Australia, Brazil, Canada, Chile, 
Denmark, Finland, France, Greece, India, 
Israel, Italy, Japan, Korea, Vlecico, The 
Netherlands* Norway, People's Republic of 
China, Saudi Arabia. South Africa, Southeast 
Asia, Spain, Sweden, the United Kingdom, 
Venezuela, and West Germany. 



We'll help you reach Ihe people who sell 
your products in the third-party marketplace in 
France, the United Kingdom, and West Germa- 
ny wiLh our publications there. 

And we'll help you reach users of personal 
computers, through either general micro- 
computer magazines or achine-speci fie ones. 
Wc serve their needs in 17 countries with our 
publications in Australia. Brazil, Canada, 
Chile, Denmark, Finland, France, Greece, 
Israle, Italy, Mexico. The Netherlands, Norway, 
Spain, Sweden, the United Kingdom, and West 
Germany. 

Find qui how easy il is to reach your target 
audience in these markets. When you're selling 
computer products or services abroad, we'll 
provide one-stop advertising service. Call Peter 
Lybro, our international advertising coordina- 
tor in Denmark, at 01-95 56 95 for more infor- 
mation. Or, if you prefer, use telex number 
31-566. Call today. 




CW COMMUNICATIONS/INC. 

Torvegade 52, 1400 Copenhagen K. 
Denmark. 



Eureka! 



I den forhistoriske tid er der • li 
gesom i de andre fire spil - ting man 
skal huske for at fa adgang tit nu- 
tidsverdenen, som foregar i del Ka- 
ribiske hav. Derfor er det et meget 
vigtigt tips, jeg giver fra mig nu: 
Husk hvad dinousauren siger, nar 
du moder den i en oase i orkenen 
Det er et af de fire losener for at 
komme til det spil, der giver dig te- 
lefonnumrneret - og dermed chan- 
cen for at fa de 25000 pund. Dinou- 
sauren siger: Meep meep. 



Hvordan slipper man af med vag 
terne ved Gestapos hovedkvarter 
spillet, som foregSr under 2. ver- 
denskrig. Prov at invitere dem pa en 
drink. Der er nemlig en bar lige 
overtor vagtlokalet, og vagten er al- 
koholiker. Ef* 





Af Flemming Lerbsek 

I de seneste to numre, har vi jagtet 
25000 pund i spillet "Eureka!", som 
firmaet Domark har produceret og 
som Handle saelger her i skandina- 
vien. Vi har lost 40% af del forste 
«adventure«. og det har fort til en 
del reaktioner fra leeserne. Denne 
gang skal vi ikke ga videre i den 
forhistoriske tid, men rette et par 
fejl og give gode rad om et par af 
den andre fire spil, som Eureka be- 
star af. 

I et spil som Eureka, er den mind- 
ste fejl af vital betydning. I spillet er 
du meget snart en dod person, hvis 
du begarfejl. I virkeligheden skal du 
tilbage til start hver gang du asdes. 
dolkes, drukner, forgiftes og alt det 
andet ubehagelige - og tidsro- 
vende. 

Derfor er det skam, at jeg ma 
rneddele, at der har indsneget sig et 
par »sma« fejl i vores losningsmodel 
til forste del af Eureka, nemlig -ste- 
nalderen-. Her er rettelserne: 

Pa position 10 i RUN nr. 4, mang- 
ier der et take (T). Det er kullet, som 
skal sarnies op. Ellers er du meget 
ilde stedt, nar du far ksempet dig 
frem til position 42, hvor du skal til 
at lave krudt, gevasr og bruge her- 
ligheden mod en vred dinosaur. Pa 
dette sted er der lang vej tilbage 
efter kullet, men det kan lade sig 
gore. 

Den anden fejl. jeg har opdaget, 
er i RUN nr. 5. Pa position 31 star 
der som torste bevaagelse W. Det er 
forkert. Faktisk befinder du dig pa 
position 29 og skal til 28 - altsa E i 
stedet. 

Na, du har vel fundet ud af det, 
ellers stopper legen brat... 



Nogle tips 

Med risiko for at blive kaldt spilfor- 
dasrver og meget mere, vil jeg nu 
give nogle gode rad fra mig, som du 
maske allerede selv har fundet ud 
af, eller netop er stodt pa. 

Sadanne tips kommer ofte i de 
situationer, hvor der er tidsbe- 
graansninger pk. I flere tilfaalde ko- 
rer spillet i sand-tid, og sa. er det 
med at vaere hurtig - og somme ti- 
der have talmodighed til at vente! 



Naasten samme fremgangsmade 
bruges i den romerske tidsalder; 
Nar du vil forlade spedalskhedsom- 
radet, vil de gale prove at forhindre 
det. Giv dem noget at spise. Altsa 
-give breakfasK 

Og nu et rad, som kan fordasrve 
hele spilleglasden. Lad derfor vaere 
med at Isese videre, hvis du selv vil 
finde de fire ledeord - passwords - 
som forlanges inden du far adgang 
til spionverdenen i det Karibiske 
hav. De fire ord skal alle findes un- 
der spillene. Det er naesten aldrig 
nodvendigt at spille et spil helt til 
ende - kun (or at tilfredsstille sig 
setv, og sa fa fat i de dele, man skal 
bruge til tallismanden. behoverman 
at fuldfore 

Men man kan ogsa springe over, 
hvor gasrdet er lavest, sa her er de 
forste fern procent af afsnittet "Mo- 
dern Caribbean-. 

Du befinder dig til at begynde 
med i et fly, adskillige tusinde fod 
over en o i det Karribiske hav. Tin- 



gene sker i tidsmeessig virkelig 
tempo. D.v.s., at du skal tage nogle 
hurtige beslutninger, efter spillet er 
starlet. 

Hov, startet! Du skal lige give et 
password forst: Meep meep, Nero, 
Mordered og Anvil Chorus. N4, du 
befinder dig som sagt i flyet, og ta- 
ger du for langsomme beslutninger, 
sker der ting og sager. Det er flot at 
se pa. sa prov bare - det er nemt at 
starte igen. Der er sksege oplevel- 
ser, hvis man altsS ikke selv hopper 
ud uden faldskasrm. 

Men vil du rigtig i gang, sa Take 
(T) i en fart. Derved udstyres du 
med en kniv, en radio, en kaliber 22 
pistol og en faldskaerm - ret vigtigt, 
nar du skal af i farten. 

Vaslg det 2. billede og Jump (J) 
sa. Dereftersmiderdufaldskaarmen 
og har fern procent i hus. 

Vi ser som sagt gerne nogle tips 
fra laeserne, sa vi i fasllesskab kan 
nasrme os de 25000 pund, der er 
udsat for at lose spillet. ■ 
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Indtastningsvejledning 
for Commodore 64 & VIC-20 




De programmer, der trykt er i RUN 
ser lidt anderiedes ud end du er 
vant til at se pa din skaerm eller prin- 
ter. Det skyldes.atviharanvendtet 
sa?rligt printprogram, der»oversa3t* 
ter« de grafiske tegn til et mere Is- 
seligt sprog. Vi bederdig derforlse- 
se indtastningsvejledningen om- 
hyggetigt igennem, for du starter 
med at indtaste dine programmer. 



Alle de grafiske tegn er I vort printpro- 
gram sat mellem to kantede parente- 
ser. og du skal saledes IKKE indtaste 
disse parenteser eller det, der st£r 
imellern. Du skal trykke pa" den eller de 
taster, dersvarer til del, der er skrevet 
mellem parenteserne ifig. skemaet 
her pa siden. StSr der et tal umiddel- 
bart efter den forste kantede parentes , 
skal de pagaaldende taster trykkes det 
antal gange, der star-skrevet. 
Star der SPC mellem de kantede pa- 
renteser, trykker du pa mellemrums- 
tast. Star der et tal toran SPC. trykker 
du tasten det antal gange. 

Du vil ogsS komrne ud for, at der 
imellern parenteserne f.eks. star S/A - 
i sa tilfaelder trykker du pa SHIFT-ta- 
sten og A. Havde der i stedet staet C/A. 
sku lie du have try kket pa" Commodore- 
tasten og A. OgsS i disse tilfaelde. kan 
der vasre et tal. der angiver antai gan- 



Kontrolsum 

I programmerne til Commodore 64 er 
der knyttet et sSkatdt kontrolsums- 
program, der kan lette fejlfinding ved 
indtastning. FremgangsmSden ved 
brugen af dette program er falgende: 

1. Du starter med at indtaste kon- 
troisumsprogrammet og gemmer det 
til fremtidig brug. 

2. Far indtastningen af de avrige 
programmer slarterdu med at indlasse 
kontrolsumsprogrammet. 

3. Sa indtaster du dil program 

4. Tag altid en kopi af dit program, 
inden du tester det. 

5. Skriv GOTO 62000 og besvar de 
sporgsmal, som programme! stiller. 

6. Sammenlign de kontrolsummer 
med de, der er trykt i bladet og find de 
(Infer, hvor du evt. har tastet fejl. 

AJmindelige rad. 

Vser meget omhyggelig med ind- 
tastningen, og specielt nar det drejer 
slg orn de sakaldte DATA-linier. En fejl i 
disse linier kan forarsage, at compute- 
ren »gar i baglas« og du bliver nodt til at 
slukke for den. 

Derfor endnuengang: tag en kopt af 
dit program, inden du karer det. 

Hvis computeren giver en fejlmed- 
delelse i en linie, hvor der findes en 
READ-kommando, kan du vasre nas- 
sten sikker pa, at fejlen IKKE skal fin- 
des i den pagseldende linie, men der- 
imod i en at DATA-linierne. 

Hvis du indlaster en programimie, 
der fylder to linier pa skaarmen fuldt ud, 



(80 tegn) vil cursoren springe ned i den 
tredje linie. Et tryk pa RETURN-tasten 
her vil IKKE indlaese den pagasldende 
linie. Du er i sa tilfaalde nadt til at trykke 
cursoren en eller to linier op, far du 
trykker pa return. 

Programmerne i RUN 

Programmerne, der er trykt i RUN. er 
testet og kan funktionere. Da program- 
merne mange gange er ret komplice- 
rede. kan vi ikke 100 % udelukke. at et 
program i en spectel situation vil kunne 
opfcre sig uventet. Dette er dog ikke 
normalt.og i satiUaelde vil redaktionen 
naturligvis vaare taknemmelig for en 
SKRIFTLIG orientering. Derimod skul- 
le der Ikke Isengere veere nogen tek- 
nisk fejlmulighed I proceduren fra 
diskette/band til trykning i bladet. 
Eventuelle rettelser og korrektioner tit 
programmer eller anikler i RUN vii sa 
vidl muligt blive bragt i det efterfBlgen- 
de nummer under rubrikken RUNA- 
MOK. Vi beder lasserne om IKKE at ret - 
te telefonisk henvendelse om disss 
ting. 

RUNs redaklion kan heller ikke pa- 
tage sig telefonisk at vaare Iseseme be- 
hjaslpelige med fejlfinding ved indtast- 
ning eller tvivlsspergsmal om pro- 
grammerne i det hele taget. Hvis man 
har test sin brugervejlednmg og falger 
denne vejledning, skulle indtastningen 
af programmerne ikke give de store 
probtemer. 

God fornojelse. 
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Narduser 



trykker du 



Ska?rrn 



CCLR] 
CH0I1J 
CC03 
CCN] 
CCU3 
CCHJ 
[ REU] 
C OFF ] 
CBLK3 
CUHT] 
[RED] 
C CYN ] 
C PUR] 
CGRNJ 
C BLU] 
C YEL] 



SHIFT 



SHIFT | 



SHIFT 



CTRL 



CTRL 



CTRL 



CTRL 



CTRL 



CLRJHOME 



CRSR A 



CTRL 



I CTRL 



CTRL 



CTRL 



CRSR 



CRSR < 



CRSR ► 



I CTRL I 1 9 I 



en 



□ 
H 
II 

□ 

® 



B 

k 

m 
□ 
□ 



ORG] 
BRNJ 
LTRED] 
GR1 ] 
GR2] 
LTGRN] 
LTBLU] 
GR3] 
Fl] 
F2] 
F3] 
F43 
F5J 
F8] 
F5? : 3 
F8J 



| SHIFT | + 



SHIFT 



SHIFT 



SHIFT 



lr=l f 1 I 
■ "I I 1 I 


n 

kd 


I r- 1 I ? "1 
LiU 1 2 1 


IS 


rrn i * i 
L£lI 1 3 1 




1 C= 1 1 4' | 




1 r-l 1*1 


E 


U-iJ 1 6 1 


■ 1 

■1 


ca hi 


□ 


\M 1*1 


■ ■ 

■ ■ 



13 



f3 



15 



17 



II 
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62000 REM KONTftOLSbn PROGRAfl 

62010 GOSUB 67050 

62020 GOTO 62280 

62030 IF FL>=0 THEN 62020 

62010 END 

62050 DEFFN OEEKCX J = PEEKCX >256*PEEKCX 
-M J 

62060 DAI A x*x 

62070 DATA 165.257.166.253,133.020.131.0 
21 .032.019 

62080 DATA 156.216.160.001.177.095,133.2 
51 .210,013 

62030 DATA 700. 177. 095, 133, 252, 200. 177.0 
35.133.253 

62308 DAT A 700.169.800.133.251.177.095 2 
10.006,071 

62110 DATA 101 .251 .700.208.214,096 
6212B DATA -t 
62130 AD = 52992 
62110 RESTORE 

62!S0 READ fit IF 7i<>-»»-' THEN 62150 
62160 READ T : II- |>s0 THEN POKE AO.T ! 
AD = aDtl : ROTO 67160 

62170 PRlNT"tCI.RJHUOR 0NSKES KONTROLSUtl 
PRINTET: " 

62180 IHPUT-TU/nONITORr0 PRINTERS PIOTT 
ER=6"; DEO 
67150 RETURN 

62200 REJ1 DO lNITALISPTION 

62210 FL i 0 : JNPUT "FBRSTE LINE FL 
: IF FL<8 THEN RETURN 

62220 LL s 65536 ! INPUT "SIDSTE LINE *J 

LL: PRINT "L CLR J" 
62230 IF O6U>0 THEN OPEN 1 .OEV 



62240 LN = FL : C = 3 : CI =0 

62250 POKE ?52.LN-IHTCLN/256J»256 : POKE 

253.LN/256 
62260 SYS 52992: CS=P£EKC25i J:LN=FN0EtKC2 
52 3*1 

62270 Ti = LEFT*CSTRVCLN-n+-CesPCJ".6Jt 

LEFT1CSTR4LCSJ+"C?SPCJ".7) 

62280 IF DE"J = 0 THEN PRINT Ti; 

62290 IF OELO0 THEN PRINT*! ,T*: 

62300 If DF_U=0 THEN C : Ol : ]F C>=3 TH " 

EN PRINT : C = 0 : CI - CI t 1 

62310 IF OELO0 THEN C = C+l : IF C>=3 TH 

EN PRINT *1 : C = 0 : CI = CI * I 

62320 IF LN<=I_L AND PEEK C251 J THEN 62250 

62330 IF DEU>0 THEN PRINT»1 : CLOSEl 

62310 END 



KQNTROLSUfl 










62000 


5 


620 10 


170 


67020 


I 63 


62030 


1 77 


6704 frl 


12'J 


67050 


179 


62060 


33 


62070 


30 


67080 


30 


62090 


46 


67100 




67110 


11 


67120 


I 


62130 


130 


67110 


1 10 


62150 


167 


67160 


29 


62 1 70 


&5 


621R« 


227 


67190 


147 


02200 


58 


62218 


17 


62770 


139 


62230 


?? 


62210 


13 


62250 707 


62760 


75S 


62270 


189 


67200 


la* 


62290 


750 


62300 


in 


67310 


161 


62320 


197 


62330 


3B 


67310 


126 
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TIPS Program % 7 + A a 



Begge tipsprogrammer venter pa 
tips.tjenestens nye kuponer. I 
slutnlngen af august biiver de of- 
fentliggjort og derefter kan pro- 
grammerne gores faerdige. 

I neeste hummer af RUN, vil vl 
bringe den sidste del sammen 
med de sidste faciliteter. 

I mellemtiden kan vi glsede 
PLUS/4 ejerne med, at vi nu brin- 
ger erv version til denne compu- 
ter. Programmet til PLUS/4 vll 



RUN Amok 



Supermon 

Nar tingene rigtig begynder at ga 
gait, er de svaere at stoppe. Del 
har vl matte erfare med Super- 
mon (RUN nr. 3/85). 

VI bragte I nr. 5 en korrektion, 
men indtastningsprogrammet vll- 
le kun accpetere den forste linie. 
Den har de fleste nu fundet ud af, 
idel de har rettet de sidste data i 
hver linie. 

Det er nu nemmere at komme 
over det ved i linie 500 i indtast- 
ningsprogrammet at sastte 
CKSUM = 0 

i stedet for den formel, der star. 

Derudover er det en god ide at 
ssette 1. og sidste datatal i datali- 
nie 4586 til 80. 

Nar du er naet sa langt, redder 
du stumperne i land pa folgende 
made: 

1. Sluk og taend for compute- 
ren. 

2. Tast 

POKE8192,0:POKE44,32:NEW 

3. Indices indtastningspro- 
gram. 

4. Sast startadr. til 2048 og slut- 
adr. til 4587. 

5. Indlaes via indtastningspro- 
grammet den version, du ikke kan 
fa til at virke. 

6. Save den nye version (under 
andet navn). 

7. Sluk og tsend for compute- 
fen. 

8. Tast LOAD"navn'\8,1 eller 
hvisband, LOAD"navn",1 ( 1. 

9. SKriv RUN 

10. Tilgiv os - undskyld! 



blive bragt over to numre, hvoraf 
forste del bringes i dette num- 
mer. I nasste nummer afsluttes 
det sammen med 64-versionen. 

Med hensyn til VIC-20 og C16, 
er der problemer med hukommel- 
sen. PLUS/4 versionen kan gan- 
ske vist godt kore pa C16. men 
hukommelsen kan ikke klare ret 
mange data ved siden af program- 
met. 

Derfor vil programmet til disse 



GAMLE RUN'ER 




Der er mange leesere, der onsker 
en komplet samling af RUN. Vi 
har jaevnligt foresporgsler, og 
kan I den anledning oplyse, at 
man ved indsendelse af kr. 25,- pa 
postgiro 1 48 31 61 kan fa sendt 
det nummer, man mangier. 



computere blive splittet op i flere 
mindre - og disse versioner star- 
ter vi med i nasste nummer. 

Vi har vaeret lige sa utalmodige 
som I er, men tipstjenesten har 
hverken vasret til at hugge eller 
stikke i. 

Pa spaendende gensyn i nasste 
nummer. ■ 



INDSENDELSE AF 
PROGRAMMER TIL RUN 



Har du skrevet et godt program, 
som du mener har interesse for 
andre, kan du sende en kassette 
eller diskette til RUNs redaktfon. 
Onsker du det indsendte materia- 
le returneret, bedes du venligst 
vedlaegge frankeret svarkuvert. 

Alle programmer, der trykkes i 
RUN, praemieres med 10 disket- 
ter eller 24 band efter eget onske. 

Som privatperson kan du lige- 
ledes annoncere gratis i RUN. Be- 
tingelsen er dog. at det ikke er pi- 
ratkopier, du vil saalge. Hvis re- 
daktionen skonner, at dette ertll- 
faeldet, vil annoncen ikke blive 
bragt. 

Vi glaeder os til at here fra dig. 




RUN Nr. 7 
udkommer den 8. oktober 1985 

Test af den nye Commodore 128. 

RUN har kigget pa, hvordan det gar med data- 

undervisningen i skolen. 

RUN har lavet et Turbo-loadeprogram 

- denne gang til diskettestationen. 

Tipsprogrammet afsluttes med printerrutine til 

de nye kuponer. 

Maskinkode- og Comalskolen fortsaetter. 
Test af Dantekst til PC'eren. 
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»qualimetric« 
g0r det lettere 

Vlgordetsuperletforderesda1aanl£eg:BASFdata-rnedtamed»qualirTietric»-syrnboleter 
kendetegnet tor perfekt og sikker kvaiiteL Fra RexyDisk til plademodul sr vi i den sser- 
lige situation, at vi kan omsaatte vore samlede erfaringer til topprodukter. Vi optimerer 
kvalitet til BASF specialist. Denne ekstrasikkerhed I onnersigoggor det lettere tor Denv 



II BASF 




a BASF 





A Q"P Alle BASF data-media er specielt 
XjXiOI" udviKlede. specielt producerede og 
1 1 'l 1 gennemtestede. Det er BASFs 

: 1CVC[11T©1 s^rposition engaranlilor.Overhele 

verden engageret i kemi og fysik, 

saerdeles erf aren i samspillet mellem 

apparat og medie. Det er grundlaget 
for BASF topkval iter 



A/S Badilin 

Ved Stadsgraven 15 

Postboks1734- (01) 570011 
2300 Kobenhavn S 




HVEM HJJELPER Dh 



1068 



7562158 



H0LBTEBR0 BIBLIOTEK 
INFORMATION 
KIRKESTRCOE 11 
7500 HOLSTEBRO 




MATRIX PRINTER MPS 801 

MPS 801 er til dig, der vil have en virkelig professionel 
primer. 50 karakterer pr. sek. og 80 karakterer pr. linie. 
Ideet til uriskrivning af fakturaer, checks, breve o. lign 

Der er fuldt altanumerisk tegnsat samt 
Commodoregrafik. Den kan ogsa skrrve med negativ 
skrift og lave forstorrede karakterer. Desuden kan du 
designe tegn og bomsrker med Commodore MPS 801. 




Commodore Computer er den storsee 
teverandor al hjemmecompuiere i 
Danmark - t)g del torpligter. 

Vore perifere enheder lever fuldt og 
hell op til vore computeres standard. 

Med vore prtmere. plottere. diskette- 
stationer og datasette udvider du dine 
multgheder savel pa del administralive 
omrade som pa omradet tor udvikling al 
egne programmer. 



MATRIX PRINTER MPS 802 

Ideel til tekstbehandling. Fordi dens tegnoplosning er sa 
hoi. Vfctegnet til administrative systemer. Fordi den 
er beundringsvsrdig hurtig med 80 karakterer pr sek. 
Fordi den ubesvsret laver 20, 40 etler 80 tegn pr. linie. 
Bidirektional printning. Naturligvis med den Hnie- 
afetanddu rxogrammererdentil. Printer MPS 802 arbej- 
der med papiriormater op til M 




Commodore 

Fordi fremtiden forleengst 
erbegyndt. 




